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The ANALOG Compendium is available at selected book and computer stores, or you can order it direct. Send 
a check or money order for $14.95 + $2 shipping and handling to: ANALOG Compendium, P.O. Box 615, Holmes, 
PA 19043. 

Or you can order by phone with MasterCard or VISA. Call toll free: 1-800-345-8112 (in PA, call 
1-800-662-2444). For orders outside the U.S., add an additional $5 air mail, $2 surface. 
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THE INCOMPLETE WORKS 
OF INFOCOM, INC 



Incomplete, yes. But it's not just 
because we're always bringing out 
new stories in the Infocom interactive 
fiction collection. Nor is it simply due 
to the fact that with all the writing and 
re -writing, honing and perfecting that 
we put into every one of our stories, 
our work is seemingly never done. 

The real reason is: an Infocom 
work of fiction can never be complete 
until you become a part of it. 

You see, as hard as we work at 
perfecting our stories, we always 
leave out one essential element— the 
main character. And that's where you 
enter in. 

Once you've got Infocom's inter- 
active fiction in your computer, you 
experience something akin to waking 
up inside a novel. You find yourself at 
the center of an exciting plot that 
continually challenges you vidth sur- 
prising twists, unique characters 
(many of whom possess extraordi- 
narily developed personalities), and 
original, logical, often hilarious puz- 
zles. Communication is carried on in 
the same way as it is in a novel— in 
prose. And interaction is easy — you 
type in full English sentences. 



But there is this key difference 
between our tales and conventional 
novels: Infocom's interactive fiction is 
active, not passive. The course of 
events is shaped by the actions you 
choose to take. And you enjoy enor- 
mous freedom in your choice of 
actions— you have hundreds, even 
thousands of alternatives at every 
step. In fact, an Infocom interactive 
story is roughly the length of a short 
novel in content, but because you're 
actively engaged in the plot, your 
adventure can last for weeks and 
months. 

In other words, only you can 
complete the works of Infocom, Inc. 
Because they're stories that grow 
out of your imagination. 

Find out what it's like to get inside a 
story. Get one Irom Infocom. Because 
with Infocom's interactive fiction, 
there's room for you on every disk. 

inFocom 

Infocom, Inc., 55 Wheeler Street, Cambridge, MA 02138 

For your: Appie II, Atari. Commodore 64, CP/IVI8". DECmate, 
DEC Rainbow, DEC RT-U, IBM PC* and PCjr, KAYPRO II, 
MS-DOS 2.0! NEC APC. NEC PC-8000, Osborne. Tandy 2000, 
TI Professional, TI 99/4 A, TRS-80 Models I and III. 
•Use the IBM PC version for your Compaq, and the MS-DOS 2.0 
version for your Wang or Mindset. 
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Software aftists? 



TO MAKE THE FIRST BASKET- 
BALL PROGRAM that feels like the 
real thing, it helps to start with two guys 
who know what the real thing feels like. 

Enter Larry Bird and Julius Erving. 
Bird — the hustler, the strong man, 
deadly from outside. Erving —The 
Doctor, maybe the most explosive 
player in the history of the game. 

We talked to them, photographed 
them in action, studied their moves and 
their stats and their styles. Then we 
set out to create on computer disc an 
event which may never happen in rea 
life. We put the two of them together 
on a dream court of light, for an elec- 
tronic afternoon of one-on-one. 

It wasn't easy. Wheii 1 
they talked, we listened. 
When they criticized, 
we made big changes. 
When they gave sug- 
gestions, we took them. 

And it shows. This 
thing is absolutely un- 
canny. You actually 
take on all the skills and 
characteristics of Bird 
or The Doctor — their 
own particular moves, 
shooting abilities, even 
strength and speed. 

You'll meet with 
fatigue factors, hot and 
cold streaks, turn- 
around jump shots, 
and 360-degree slam 
dunks. But there's some whimsy in 
here, too — a funny referee, a shattering 
backboard, even instant replay. 

It's called Julius Erving and Larry Bird 
Go One-on-One." You're Bird. Or you're 
The Doctor. And that's the last deci- 
sion you'll have plenty of time to make. 



How we got this years hottest sports game out of 
two rather inexperienced designers. 




Julius Erving and Larry Bird Go Oi 

trademark of Apple CtimpiKcrTo find out r 
call (415) 571-7171. 
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NOW AVAILABLE FOR 
ATARI HOME COMPUTERS 




ELECTRONIC ARTS™ 
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Beware the dreaded modem. 

1 wear two hats. One belongs to 
the owner of an Atari 800; the 
other to an electronics engineer 
with a large, independent tele- 
phone company. As an Atari owner, 
I am intrigued by the doors 
that open when a modem is attached. 
Suddenly, my computer can talk 
to another computer across the 
country. In fact, if I assert myself 
after all the digital handshaking is 
complete, I can actually talk to the 
humanoid at the other end! 

This is all very nice, until I put 
on my telephone engineer's hat. 
Then I'm appalled at the runaway 
abuse of the telephone network 
by some of the modem designers 
and users. Half-baked equipment, 
some of it very expensive, is flood- 
ing the market. Equally half-baked 
documentation accompanying it 
promises features that the tele- 
phone network cannot possibly 
guarantee. As a result, the deceived 
modem user turns against the 
telephone company, complaining 
that his modem sometimes works, 
sometimes produces errors; or it 
doesn't work at home, but works 
at his friend's house; or he can 
place a call to a bulletin board 
1 000 miles away, but not to another 
board 100 miles away, etc. 

First of all, the telephone net- 
work is designed to supply a voice 
grade service. And "voice" means 
just that — not a private analog 
data circuit, which is what too many 
of us seem to expect. All telephone 
con\panies meet national perform- 
ance standards on voice quality. 
These standards are monitored at 
the federal level and by the state 
Public Service Commission. Be- 
cause the voice grade network 
performs so well, some modem 
designers and users make false 



assumptions about what they can 
demand from it. They think of it as 
a network that exists only to trans- 
mit their two sinewave tones in the 
voice band, without error. 

In particular, they are very hazy 
about such things as: A. Data signal 
send levels; B. Switched network 
losses from call to call, that depend 
on the path chosen by a central 
computer in another part of the 
country perhaps; C. Random noise 
appearing on the telephone pair; 
D. Hum appearing on the line 
(courtesy of the local or distant elec- 
tric utility); E. Impulse noise level, 
duration and frequency (these can 
look like data signals); F. Ringing fre- 
quencies and voltages, which are 
often as much as 100 volts AC; G. 



Echo amplitude and delay from 
satellite links; and H. The so-called 
"ringback" tone. (This is what you 
hear while you are waiting for your 
party to pick up his phone. Note: 
you do not hear his phone ringing. 
His phone may, in fact, be discon- 
nected. You will still hear the 
ringback. So don't complain that 
you heard his phone ringing — you 
didn't.) 

Armed with this lack of under- 
standing, a modem designer can 
easily turn out a marginal design. 
The modem's performance will then 
vary with time and circumstance, 
in a manner beyond the designer's 
ken. Nevertheless, he sells it 
to the innocent consumer, whose 

(continued on page 8) 



SAVE $$$ ON THE 



ATR8000 

I6K ATR8000 $295 

64K ATR8000 with CP/M2.2 450 

256k CO-POWER88 (MSDOS or CPM) 450 

64k ATR8000 w/256k CP88 850 

AUTOTERM80 displays 80 col 30 

MYDOS Atari DOS compatible 30 

Tandon 1 00- 1 SSDD full-size in case & pow. sup. . 250 

2 Tandon 1 00- 1 's Dual case & power supply 450 

Teac 55b DSDD thin-line 310 

CABLES: Terminal $30 

2 drive $25 Centronic Printer 30 

4 drive 37 RS232 (serial) 30 

ADD: $7.50 Shipping for each ATR8000 and each Drive 
$2.00 for C.O.D. Orders / 6% Sales Tax in Illinois 



flTTa-SQR 

232 N. Chambers Street, Galesburg, IL 6 1 40 1 



HOURS 
1-5 pm daily 



309-343-4114 
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WE ACCEPT 
American Express 



flLOG COMPUTING PRESENTS 

HIGH QUALITY PROGRAMS AT AFFORDABLE PRICES FOR 
ALL ATARI COMPUTERS WITH 48K AND 1 DISK DRIVE. 



SUMMER SPECIAL — BUY TWO & GET ONE FREE! 

* WHEN ORDERING DIRECT FROM ALOG 



• •••NEW! •••• 
THE ALOG CARDFILE 

TURNS YOUR ATARI INTO AN ELECTRONIC CARD 
FILE. SEARCH & SORT ON ANY LINE. FORMATTED 
PRINT AND NUMERIC FIELDS MAKE THE CARDFILE 
IDEAL FOR YOUR EXPENSE RECORDS, INVEN- 
TORIES, AND RECEIPES. 
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THE ALOG PAGEWRITER 

TURNS YOUR ATARI AND 80 COLUMN PRINTER 
INTO AN EASY-TO-USE ELECTRONIC TYPEWRITER. 
THE ENTIRE PAGE LAYOUT IS DISPLAYED 
GRAPHICALLY WHILE YOU TYPE. IDEAL FOR 
SIMPLE WORD PROCESSING TASKS. 
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THE ALOG DISPLAYMAKER 

MIXES COLOR GRAPHICS AND THREE TEXT SIZES 
ON THE SAME SCREEN. BUILT IN CHARACTER 
EDITOR AND SHAPE DRAWING ROUTINES. 
GRAPHICS DUMP TO MANY PRINTERS. GREAT FOR 
MAKING GRAPHS, CHARTS, AND HAVING FUN. 
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THE ALOG MAILLIST 

IS AN EASY-TO-USE, MENU-DRIVEN DATA BASE 
PROGRAM DESIGNED FOR MAILING LISTS AND 
PRINTING LABELS. FAST 3 KEY SORT AND MULTI- 
LEVEL SEARCH ON ANY LINES. PRINT FORM 
LABELS 1 TO 2 INCHES HIGH. 

THE ALOG MAILLIST 
(C) Copyright 1983 by ALOG COMPUTING 

MAIN-MENU 

<U>TILITIES 

<L>OAD FILE 
<S>AVE FILE 
<A>PPEND FILE 
<F>ILENAMES 

<C>REATE NEW RECORDS 
<E>DIT/VIEW RECORDS 
<D>ELETE MEMORY 
<P>RINT RECORDS 

<X>IT PROGRAM 

HIT <KEY> FOR OPTION: 



All programs are only $39.95 each including tax. To order direct send check or nnoney orderto Alog 
Computing, 1040 Veronica Springs Road, Santa Barbara, CA 93105. We pay shipping. For infor- 
mation, credit card orders or C.O.D., call our distributor: COMSTAR (805) 964-4660. 



Dealer and distributor inquiries invited. 



(ATARI is a trademark of Atari, Inc.) 
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dreams are soon shattered. 

A specific case, if you will. The 
customer had just purchased a high 
quality portable computer (an Os- 
borne), with an integrated modem 
and audo-dialer. It worked 
well from his residence, and from 
his friend's house, but not from 
either of his two business lines. I 
spent much time and money looking 
for faults in the telephone plant. 
The cable performance was in 
limits, but we were loathe to blame 
a prestigious computer manu- 
facturer. We should have, because 
eventually we discovered that the 
modem, instead of waiting for the 
distant computer to come on-line, 
was trying to shake hands with 
the telephone ring-back tone. So 
when this ring-back tone stopped 
after one second, the modem dis- 
connected. The customer's place of 
business was closer to the central 
office than was his residence, and the 
stronger ring-back was confusing the 
poor old modem. In effect, the bet- 
ter the telephone loop, the worse 
the modem's performance. The 
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TECHNOLOGIES 

COMPUTER PERIPHERALS 

introduces... 

Parallel 
Printer 
Interface.. .$59.^5 

•WORKS WITH ALL ATAR|TM COMPUTERS 

•WORKS WITH ALL CENTRONICS COM- 
PATIBLE PRINTERS AND TYPEWRITERS 

•FULL 8-BIT GRAPHICS CAPABILITIES 

•REQUIRES ONLY ONE JOYSTICK PORT 

•WORKS WITH ALL SOFTWARE THAT USE 
DOS II, INCLUDING THE ATARIWRITERTM 
WORD PROCESSOR 

•PRINTER DRIVER IS RESIDENT IN DOS SO 
NO ROM SWAP IS NEEDED 

•COMPLETE WITH 5 FEET OF CABLE, 
DETAILED IMSTRUCTION MANUAL. COL- 
OR COORDINATED PACKAGE AND THE 
PRINTER HANDLER SOFTWARE ON A DISK 

For ordering or information. Call or write- 

PS TECHNOLOGIES 

P.O. BOX 1335, PALATINE. IL 60078 
(312)359-8288 (24 HOURS) 

Shipping and iiandling add $3.00 VISA, MASTER- 
CARD, MO ACCEPTED COD add $2,00 
Illinois residents add 7% sales lax 
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customer was extremely embar- 
rassed by it all, and told me he 
would get rid of the computer. 

There is an industry standard 
governing the maximum tone am- 
plitude that may be placed on a 
telephone line by a modem. This 
level is -9dBm. (i.e., 9dB below 1 
milliwatt.) Sometimes, a modem 
user who has trouble getting 
through opens up his unit, finds 
the LEVEL control, and cranks 
it up to the maximum. He knows 
nothing about crosstalk. He may 
care even less about the inter- 
ference he is causing to other 
telephone users. He is determined 
to get through, and the heck 
with everyone else. Modem users 
should note that it is extremely 
rare to have a problem with signal 
level on a modem circuit. A re- 
ceiver can operate down to a level 
of -40dBm, and often lower. So, 
starting from a transmitted signal 
level of -9dBm at the far end, all 
tones will arrive at a minimum of 
-25dBm. In other words, with at 
least a 15dB safety margin. So why 



The Best For less 

INDUS CT 

$349.95 



—GUARANTEED LOWEST PRICES- 
CALL OR WRITE 

DAISY WHEEL PRINTER $399.95 

APE FACE PRINTER INTERFACE , $69.95 

ULTIMA III $39.95 

FLIGHT SIMULATOR II $39.95 

JUPITER MISSION $39.95 

UNIVERSE $69.95 

ZOMBIES $29.95 

BOULDER DASH $24.95 

CHATTERBEE $34.95 

ZEPPELIN $26.95 

BROADSIDES $29.95 

RAILS WEST $29.95 

RALLY SPEEDWAY $54.95 

INFIDEL $33.95 

RETURN OF HERACLES $24.95 

DINO EGGS $29.95 

ULTIMA III HINT BOOK $12.95 

ALTERNATE REALITY CALL 

Please aaa S2.50 shipping (S4.50 outside USA) 

California residents add 6%. 

Send Stamped Self Addressed Envelope 

for FREE CATALOG 



COMPUTER GAMES + 

BOX 6144 I 

I ORANGE CA 92667 
(714) 639-8189 >- 
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crank up the send level and inter- 
fere with someone else? 

Other problems have occurred 
because some modem designers 
fail to guard against impulse noise 
on the line . . . may not have given 
it a moment's thought, even. Im- 
pulse noise is caused by household 
appliances, power surges, CB or 
ham radio transmitters turning on 
and off, or lightning. An impulse 
is broadband, and some part of it 
will pass through any mark-space 
tone filter system. A poorly de- 
signed guard circuit will allow 
this impulse to false-trigger the 
pulse generator at the modem 
interface. An error results, and 
the telephone company is blamed. 
The consumer has been brain- 
washed into thinking that he has 
the right to a private analog data 
circuit, each time he hooks up. But 
he hasn't, and we all suffer. 

Yours truly, 

Peter Vaughan 

St. Petersburg, PL 




AFFORDABLE EXPANSION 

Limited Soldering Required 90 Day Guarantee 



48K EXPANDER 

Enough memory 
for most software 



49 



95 



upgrade Kit 

upgrades 48K Expander to 64K ^34.^ 



64K EXPANDER 

Enough memory 
for all programs 



79 



95 



include $5.00 for shipping 



NAME: 



ADDRESS: _ 

OTY: 

STATE, ZIP:. 




5 week delivery for money orders 

6 week delivery for personal checks 

FIRSTmarE 



PO BOX 543. Oregon City, OR 97045 
™ 503/656-5543 
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Catalog of Computers and Supplies 

Our Prices Are WHOLESALE + 10% 

SAMPLES!!! 

ATARI 850 INTERFACE — $220 
Compucat — $163 

RANA 1000 DISK DRIVE — $449 
Compucat — $308 

INDUS GT-$44S 
Compucat — $325.60 

We support the complete ATARI and 

COMMODORE product lines. 

Ask for our free price list. 

You may order in the regular manner or 

download our TeleCatalog and order 

from your computer or terminal. 

(408) 353-1836 

Instant shipping (or as fast as we can). Mastercard & 
Visa accepted (no extra charge). Shipping & 
handling add 5%. California customers add 6.5% 
sales tax. Order hy phone (Mon. - Fri. 10 am - 5 pm 
PST). Order by modem (Daily 6 pm - 9 am) from our 
online TeleCatalog. Prices subject to change 
without notice. 

COMPUCAT 

24500 Glenwood Hwy., Los Gates, CA 95030 



COST EFFECTIVE SOFTWARE 

BY 
"The Best Little Software House In Texas" 

HOMEBASE by soft SECTRE is a 
versatile dalabase program lor Ihe home, small busi- 
ness or lab In a USER FRIENDLY' MENU driven lormal 
HOMEBASE ulilizes TWENTY COMMANDS CREATE, 
ADD, LIST, CLIST, CHANGE, CONCATENATE, 
SEARCH, SUM, SORT. DELETE, UBELS, LOAD, 
PRINT, SAVE, DIRECTORV, HELP, DRIVE, AUDIO, 
LOWER CASE, END An oplional SECURITY CODE 
prevenis unalborized data lile retrieval and manipuia- 
lion Optional AUDIO FEEDBACK signals Ihe end ol a 
command response The ATARI version uses a 
MACHINE LANGUAGE SORT! 
HOMEBASE is ideal lor: MAILING LISTS (we use il 
ourselves): household, insurance and equipment IN- 
VENTORIES: MAINTENANCE schedules: a PRESCRIP- 
TION lisl: rclund COUPON and GROCERY lisis Ready- 
lo-use dala liles lor Ihese lasks are included Why buy 
several programs' Purchase Ihe ONE program thai vnll 
handle all ol your dalabase needs, HOMEBASE by 
SOFT SECTRE will SAVE you TIME and MONEYi 
SELECTRE by SOFT SECTRE is included in Ihe disk 
based package at no additional charge (a $29 95 
valuei) Disk DIRECTORIES and PROGRAMS are 
loaded wilh numeric key input allowing even Ihe most 
inexpeiienced person lo easily opetale Ihe computer 
ATARI OR PET DISK 32K $49 95 
PET TAPE I6K $49 95 

Add $2 00 lot shipping 

SOFT SECTRE 

PO BOX I821,PLAN0, TX750M 
Send Inr FREE calalog' VISA/MaslerCard WELCOMED 
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MOVING? 

DON'T MISS A SINGLE ISSUE. 

Let us know your new address right away. At- 
tach an old mailing label in the space provided 
and print your new address where indicated. 

QUESTION ABOUT 
YOUR SUBSCRIPTION? 

Check the appropriate boxes below: 

D New subscription. Please allow 4-8 
weeks for your first copy to be nnailed. 
D Renewal subscription. Please include 
a current address label to insure prompt 
and proper extension. D 1 -year $28.00. 
This rate limited to the U.S.A. and its 
possessions. D Payment enclosed or 
D Bill me. 

MAIL TO: ANALOG COMPUTING 

P.O. Box 615, Holines, PA 19043 
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AT LASTl 

A nationwide public domain 
copy service ! Some o( the best 
programs ever written for ttie 
Atari are in ttie Public Domain. 
But you would spend HOURS 
downloading by phone (if you 
have a modem), WEEKS waiting 
for a user-group Disk of the 
Month (if you are a club member), 
or a month between issues of your 
favorite Atari magazines, and still 
not find the quality, quantity, or 
selection that LofsaSyfes 
provides on each disl<. 

Our Master Library contains 
thousands of the latest and 
"classic" programs that we have 
gathered from user-group disk 
libraries, the most popular 
Bulletin Board Systems, and the 
public domain pages of your 
favorite Atari magazines. Only the 
finest are selected and copied 
with as many as 25 different 
programs per disk, and then made 
available to you at the 
unbelievable LOIV PRICE OF 
JUST S7.95 each. 
*DISK ttl — 25 Game programs 
on two full disk sides. Selections 
include most of the latest and 
most desirable "arcade" quality 
games. $7.95 

*DISK #2 - 25 Utility programs. 
This useful assortment will help 
you to unleash the full power of 
your computer. $7.95 

'DISK #3 - 25 Advanced 
Musicsystem files on two full disk 
sides. Complete with a public 
domain Player program. Now you 
can listen to your Atari playing 
many of your favorite "top 40" and 
classics. $7.95 

** FREE BONUS ** 

With your order for any three (3) 
disks we will send you your 
choice of either: 

1. ATARI XL TRANSLATOR 
DISK that enables XL owners to 
use most 400/800 software - FREE 

or 

2. An all-different Advanced 
Musicsystem disk with the Player 
program - FREE ! 

LotsaBytes is pleased to also 
present a fine commercial 
program by special arrangements 
with Lee Actor, the author of the 
Award Winning Advanced 
Musicsystem. The all new, 
machine language, improved 
Advanced Musicsystem II 
Specify 16K cassette or 24K disk. 
Full instructions. Originally 
$29.95. LotsaBytes price only 
$14.95. 

FULL 100% replacement 
guarantee. Any disks found to be 
defective will be replaced free and 
we will also refund your return 
postage. 

An orders are stirpped by First Class US 
Mail. Add SI. 50 per order stripping and 
tiandling. Inlernational add Ib^.u. US. lunds 
only. Calilornia residents add 6 ' .".o sales lax. 
Checks or Money Orders only. Sorry, no 
C.O.D Please allow two weeks lor personal 
checks (o clear. 

LotsaBytes 

15445 Ventura Blvd., Suite 10H 
Sherman Oaks, CA 91413 

Alan IS Ihe registered traijemark ol Atari. Inc. 
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The 

Winners 

analog's staff picks their all-time favorite games. 



The idea for this article sprang from a reading of 
Road and Track and Motor Trend. Occasionally, 
RiS'T lists what cars their staff is currently driving, 
and annually, MT picks their "Car of the Year" 
awards. Let me first say that these few pages were done 
as more or less a fun-thing-to-do, and, in actuality, our 
top game list probably changes on a daily basis. 

Reasons for a favorite game vary greatly, and it's fre- 
quently difficult to remember some old favorites 
when flashy new ones pop up. However, we've 
tried to overcome this, and, indeed, games from the 
entire Atari computer lifespan appear on the list. To 
give older games a fair chance, we took an "after 
the dust settles" outlook on the newer ones that have 
recently come to market. 

Old favorites like Star Raiders and Missile Com- 
mand have what it takes to hold a player's interest and 
keep you coming back for more self torture. And 
those in the middle, two years old or so, are still 
fond in (some of) our memories, such as Pac-Man and 
Threshold. But there's no question that some late 
bloomers, like MiG Alley Ace and Boulder Dash, 
have caught our eye(s). 

The nominations. 

The editorial staff of ANALOG was asked to 
select their seven favorite games of all time. And 
believe us, the ANALOG game library is so vast, 
it must have shifted the earth's magnetic poles. The 
final list of chosen games consists of thirty-three dif- 
ferent titles from eighteen manufacturees. Except for 

Jon A. Bell 



1. star Raiders 

2. Archon 

3. Miner 2049er 

4. Missile Command 

5. Pac-Man 

6. TInreshold 

7. Breakout 



Star Raiders on a Kloss Video Beam, room lights off, 
the FINAL COUNTDOWN score on 7. Sink back into 
your Recaro desk chair and let the photons etch out 
your brain. 





Lee H. Pappas 

1. star Raiders 

2. Missile Command 

3. Lode Runner 

4. MiG Alley Ace 

5. Krazy Shootout 

6. Breakout 

7. Boulder Dash 



Star Raiders — Commander Level: Star Commander 
Class I, no shields used the entire game, 54 Zylons 
destroyed. April 20th, 1984. That's it, that's all. 



Michael DesChenes 

1. IVIiG Alley Ace 

2. Missile Command 

3. Castle Wolfenstein 

4. River Raid 

5. Bruce Lee 

6. Silicon Warrior 

7. The Return of Heracles 



I don't enjoy sitting alone playing a one-person com- 
puter game. Multiple-player interactive games are the 
only ones that will ever make it on my list of all-time 
favorites. 

Atari, none of the other software companies has more 
than two or three games on the list, and most have only 
one. 

Each reviewer was also asked to quote on his favo- 
rite game, the video game business in general, or to- 
day's weather. Finally, we tabulated the results of 
chart frequency to show Atari leading the way with 
Star Raiders (six votes), followed closely by Mis- 
sile Comimand and newcomer MiG Alley Ace. 

This survey proves nothing, except that taste in 
games differs . . . from hard-core, blast-'em-to-bits 
all the way to "Drink Magic Potion." And, finally, 
the games we've chosen are the best of the best, so your 
software collection will suffer no ill-effects if you 
dash out to buy any of these products. D 
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Tom (HUD) Hudson 

1. star Raiders 

2. Archon 

3. Boulder Dash 

4. Miner 2049er 

5. Missile Command 

6. MIG Alley Ace 

7. Donkey Kong 



The ultimate test of a truly good game is its lifespan — 
most last a couple weeks or less. Others, like Star 
Raiders, are still fun five years after their introdux:tion. 







Charles Bachand 

1. Gateway to Apshai 

2. Ali-Baba 

3. Gruds in Space 

4. Archon 

5. Miner 2049er 

6. Wayout 

7. Zork I 



I must be into self-torture, for my favorite games 
tend to he the most frustrating. And for sheer masochism, 
my vote goes to Gateway. 



Pat Keiley 

1. Archon 

2. MiG Alley Race 

3. Ore Attack 

4. Operation Whirlwind 

5. Choplifter 

6. Star Raiders 

7. Sub Commander 



In the cutthroat world of games, EA's Archon is a 
real killer. What else can I say about a game I've devoted 
over loo hours of my life to? 




ANALOG^s 
Favorites, 



V» MO TOM 9 



:9-rRovei> 




Kyle Peacock 

1. star Raiders 

2. Encounter 

3. Missile Command 

4. Pole Position 

5. Starcross 

6. Choplifter 

7. M.U.L.E. 



Encounter does for my visual senses what Starcross 
does for my unending quest for the stars. 



Tony Messina 

1. Star Raiders 

2. Wizard of Wor 

3. Encounter 

4. MiG Alley Ace 

5. M.U.LE. 

6. Shamus 

7. Agent USA 



To computer-illiterate jugheads, Star Raiders is 
just another video game. To the more perceptive. Star 
Raiders is the ultimate simulation from a $200 graphics 
box. Fifteen years ago, you would have been playing it on a 
half-million dollar machine — not in civilian hands. 




L ' OS — ,01101, ■• dfr'S- *cai.ai' » s ^-t 



Star Raiders. 




Missile Command. 
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Miner 2049er. 



The 


Top 


Five 


1. Star Raiders — Atari 


2. Missile 1 


Command 


— Atari 


MiG Alley Ace— 1 


Vlicroprose 


(Tie) 






3. Archon 


— Electroi 


nic Arts 


4. Miner 2049er — B 


ig Five 



MiG Alley Ace. 



Manufacturers Listing 



Atari, Inc. 

Star Raiders 
Missile Command 
Pole Position 
Pac Man 
Donkey Kong 
Breakout 

Big-Five Software 
Miner 2049er 

Broderbund 
Choplifter 
Loderunner 
Operation Whirlwind 

CBS Software/Entertainment 
Krazy Shootout 
Wizard of Wor 

Datasoft, Inc. 
Bruce Lee 



Electronic Arts 

Archon 

M.U.L.E. 

EMI Software 

Ore Attack 

Sub Commander 

EPYX 

Gateway to Apshai 
Silicon Warrior 

First Star Software 
Boulder Dash 

Infocom 
Starcross 
Zork 1 

Microprose 

MiG Alley Ace 



MUSE 

Castle Wolfenstein 

Quality Software 

Ali-Baba 

The Return or Heracles 

Scholastic Winners 
Agent USA 

Sierra/On-Line 

Threshold 

Sirius Software 
Gruds in Space 
Wayout 

Synapse Software 

Encounter 
Shamus 



Dorsett 



For Your Atari Computer 

TRS 80 Color, I, III & 4 or Apple Computer 




I Software 
Passes 
the Cost- 
Efficiency 
Test! 



For computer assisted instruc- 
tion, our software more than 
passes the test... it EXCELS! With 
over 1000 educational programs 
designed specifically to concen- 
trate learning for all users, from 
kindergarten level to advanced in- 
dividual studies, from slow learn- 
ers to exceptionally bright stu- 
dents, you'll get positive results 
with our quality, economically- 
priced courseware. 



„A-a*iy Kewsboy Earrii(icis 


dollars 4~' 





__ 


1 


t f 1 

11 1 

1 1 1 


earned 3"! 


^" 


" 



Joe &ave Ed can 
What is the title of this graph? 



daily earnings 
of newsboys 



boys sel I ing 
newspapers 



Interactive Tutorial Programs 

Over 1000 Programs with Full Time Audio Narration, Pictures & Text! 

We're Your Educational 

For your Atari 400/600/800/1200, you will need the Atari Cassette Recorder and the 
Software SnUrr^P Oorsen 4001 Educational Master Cartridge, $9.95. For your Apple II, you will need 

y^\yi I vrtui ^ \^\yLJi \y^ ,f,g porsetl M402 T/T plug-in board, $99.00, and the M401 stereo cassette player, 

$79.00. All programs listed are available for TRS 80, I, III, 4, which require the M203 
speaker converter, $99.00, and 401 stereo cassette player, $79.00. 

$59.90 for an album containing a 16-program course (8 cassettes with 2 programs 
each at $3.75 per program). $8.80 for a 2-program cassette. 

Send for a catalog of over 1000 programs lor Atari, TRS 80. Apple, etc. 
For more information, or to order call: 

TOLL FREE 1-800-654-3871 

IN OKLAHOMA CALL (405) 288-2301 

p^ DORSETT 

^BJ^^^ Educational Systems, Inc. 
Box 1226, Norman, OK 73070 



Course 


No. 


of Programs 


Reatding 




256 


Mathematics 




128 


Comprehension 




48 


History 




32 


Algebra 




16 


Spelling 




16 


Government 




16 


16 Programs in each of the following: 


Carpentry - Electronics ■ 


Hea 


th Services 


Office Skills - Statistics - 


First Aid/Safety 


Economics - Business 




Accounting 


Psychology 




AND MANY MORE 


! 



MoslscCardl 



Dealer inquiries welcome 



VISA' 
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Griffin^s 
Lair 

Educational 

Programs 

Revieiv 



by Braden E. Griffin, M.D. 



As the deadline for issue 19 approached, I found 
myself so overwhelmed at work (you know, Doctor- 
stuff . . . saving lives . . .) that I knew I would not be 
able to complete my column in time. The staff at 
ANALOG is so considerate about extending dead- 
lines for me that I feel a bit like Bridie Murphy. 
Anyhow, I called the co-boss (Michael) and asked 
if it would be a problem if I missed an issue. After 
some remark to the effect that I might be responsi- 
ble for a second Jonestown, my request was granted. 
In the midst of a discussion as to which is really 
more important, my column or the lives of tiny pre- 
mature infants on respirators, sprinkled with in- 
credibly ghoulish suggestions as to the dedication 
of my column in absentia, I was asked what the 
theme was to have been. I said that I was reviewing 
a number of typing programs. To which Michael 
dryly responded, "You mean programs that teach 
you how to type faster and get things done on time?" 
Touche! 

One of the major reasons for buying a home com- 
puter is the ability to manage the written word. School 
reports, term papers, correspondence, articles for 
ANALOG and "The Great American Novel" are 
but a few of the many uses of this important resource. 
Typing is certainly an integral part of this process, 
and the more facile this skill, the less drudgery in 
the writing. Typing instruction seems to be a natural 
for computer education. One of the first educational 



j^^' 





-.i^^" ■---■■'■■ - "L^ic 



programs often purchased is a typing tutor. Why not? 
A most utilitarian skill, typing is a long-term asset, 
at least until the voice-activated word processors of 
the future arrive. One wonders if this new technology 
will lead not only to the atrophy of typing skills, 
but also to the demise of penmanship. Someday, 
everything written by hand may look like an M.D.'s 
prescription. 

The programs reviewed this month are basically the 
same. Letters, words, phrases, etc., appear on the 
screen, and one tries to duplicate the example. The 
examples may take the form of an enemy attack, the 
destruction of which requires rapid and accurate 
reproduction. Whatever the method, the aim is to 
teach one to enter characters quickly from the key- 
board without looking at the keys. Some are a little 
more fun, others more classically structured, but all 
will achieve their purpose with adequate motivation. 
Displaying the input at eye level, augmented by the use 
of graphics, is a definite advantage of computer 
instruction. A disadvantage may be that the compu- 
ter keyboard differs from the standard typewriter, 
although the differences are slight. It may matter little 
if one is only going to use these skills with a computer. 

Some people type from copy, while others type as 
they compose. As a member of this latter group, I find 
the use of two fingers adequate to keep up with my 
sluggish mentation. For most people, however, these 
programs free one from thinking about fingers instead 
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of words and may be of great benefit. I heard that 
Isaac Asimov, maybe the most proUfic writer ever, 
when asked what he would do if he only had one year 
to live, responded "Type faster!" 

BONUS RIDDLE: What common lO-letter word 
can be typed out using only the top row letters 
(QWERTYUIOP)? 

MASTERTYPE 
Lightning Software 
P.O. Box 11725 
Palo Alto, CA 94306 
32K/Disk Basic $39.95 

As commander of a space ship located in the middle 
of the screen, the neophyte typist must destroy the 
combat enemy word stations appearing in each of the 
four corners, before their missiles destroy the ship. 
When a word or letter is correctly typed, a blast of 
energy emanates from the ship toward the respec- 
tive word, and its missiles are exploded. All this 
fun and learning to type at the same time sounds too 
good to be true. 




MasterType. 

There are eighteen lessons, the first of which be- 
gins with the practice of single letters from the home 
row. The accompanying booklet includes a diagram 
indicating the proper positioning of the fingers on the 
home keys and the other keys for which each finger 
is responsible. As the lessons progress, the other row 
letters are incorporated in the drills, and multiple 
letter words are presented. Numbers, punctuation 
marks and shifted symbols are included in the more 
advanced lessons. After entering a word, the space bar 
must be pressed to fire the laser — a realistic approach, 
since this is what one would do if actually typing a 
word as part of a text. If a mistake is made, one may 
press the space bar and try again; however, the delete/ 
backspace key is functional, and using it is better 
practice for the real world of typing. 



Several options are available, including a level for 
beginners in which each word is only one letter long. 
The CHANGE mode allows one to vary the game 
speed, access a new lesson, or switch to upper /lower 
case letters. This latter feature is quite important and 
not found in all programs. Custom lessons may be 
created with forty words per lesson, with a maximum 
length of nine characters each. Sentences cannot be 
entered as such, because the use of the space bar 
terminates a specific entry. After each game, one's 
progress is charted by calculation of the typing speed 
in words per minute. 

MasterType is a fast-paced, exciting, arcade-style 
typing trainer with clever sound and graphic enhance- 
ments. My children found this program the most fun 
to play. Its repetitive and progressive format make 
it a valuable tool for anyone wanting to develop 
typing skills. 



TYPE ATTACK 
Sirius Software, Inc. 
Sacramento, CA 95827 
16K Disk $39.95 



Type Attack is another arcade-style typing tu- 
torial, this time in the Space Invaders genre. 
Each lesson is composed of two parts. First is the 
character attack, consisting of three separate waves 
of eight columns of characters. As the bottommost 
character is typed, it is zapped from the screen, then 
the next, until the entire wave has been systematically 
destroyed. No aiming is required, but just like the game 
on which it is based, the columns gradually move 
toward one's bases bent on devastation. The character 
attack is followed by the word attack, comprised of 
groups of complete words using the previously prac- 
ticed characters. The words fly horizontally across 
the screen, the one with the blinking shield being vul- 
nerable to attack. Correctly entering the letters and 
pressing the space bar blasts the word from the sky. If 
not destroyed, the word wraps around the screen, 
giving one another opportunity. Incorrect entries at 
either level, or allowing a word to wrap around, 
consumes energy. When the energy runs out, the 
game is over. 

A menu is displayed initially and offers several 
choices. The speed may be selected from settings of 
1-99. (The manual suggests that robots and genetic 
mutants will feel most comfortable at speeds above 80, 
a fact I will not dispute.) There are thirty-nine pre- 
programmed lessons from which to choose. These 
progress in the order of traditional typing instruc- 
tions practicing the home row first, etc. . . . Up to 
sixty additional lessons may be created and saved. 
Fifteen words with a maximum length of eight charac- 
ters (without spaces) may comprise each lesson. The 
booklet contains diagrams for proper finger position- 
ing for both the 400/800 and the XL series. 
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Typing speed in words per minute is displayed by a 
bar on the left side of the screen as the attack 
progresses. Points scored for letters destroyed and 
points computed from the speed level multiplied by the 
WPM result in a final score. The highest scores enter a 
"Hall of Fame." This program includes use of upper/ 
lower case letters and backspace for entry errors. 
An additional feature is that a game in progress may 
be saved and resumed at a later time. 




.F A S D F A S 
D F A S D F A 
S F A S D F. 



pause on 



Type Attack. 

The sound and graphics used in Type Attack 
make the overall presentation of this program quite 
enjoyable. Dexterity with the keyboard will definitely 
be achieved while having a lot of fun. This is the most 
addictive of the programs I have seen; and addictive- 
ness leads to repetition, which is what typing instruc- 
tion is all about. This program is my personal favo- 
rite, but just by a whisker. It is certainly well worth 
the Investment. 

TYPO 

Romox Inc. 

501 Vandell Way 

Campbell, CA 95008 

8K/Cartridge $39.95 

So far, we have had a typing tutorial which blasts 
word enemies approaching from all sides — similar to 
many early arcade games — and one which annihilates 
menacing columns of characters a la Space Invaders. 
What's left? Pac-Man! In the middle of a dot-filled 
maze is a window where letters, words or phrases 
appear. As one types the contents of the window, a 
little ship wends its way through the maze-consuming 
dots. Of course, there is the ever present fuzzy 
monster chasing the ship through the maze. The 
monster moves at the rate of the preselected WPM 
(words per minute), requiring one to type faster 
than the WPM to avoid destruction. The object is to 
eat all of the dots while learning how to type. 

While Beethoven's Fur Elise provides the back- 



ground music, a number of options are displayed 
in the menu. The desired speed in WPM ( 1-120) is 
selected. One then has the option of practicing 
random letters, words or phrases. There is also 
the option to create one's own lesson. At the bot- 
tom of the playing screen can be seen the preset 
pace, as well as the actual typing speed in WPM. 
With the display window in the middle of the screen, 
it is often difficult — if not impossible — to follow 
the progress of the dot-ravaging ship and its pursuer, 
while trying to type the correct sequence of letters. 
There is no backspacing capability, since only the cor- 
rect letter is accepted. An erroneous entry only delays 
the progress of the ship. Although shifted punctua- 
tion marks and symbols are permitted, there is no 
provision for upper/lower case characters, only 
capitals. 




Typo. 

The biggest asset of Typo is its ability to display 
phrases. Unlike the other two typing games, one may 
practice letter sequences, words or phrases with 
spaces, punctuations, etc. — with lengths of up to 
114 characters. With this program, one can create ex- 
ercises like the quick brown fox and Now is the time for 
aR good men. The simplicity of a cartridge, plus pleas- 
ing sound and graphics, add to the learning process. 
Typo differs a little from the others, but it, too, is 
fun — and one's fingers will soon learn where to go. 

TOUCH TYPING 

ATARI 

P.O. Box 427 

Sunnyvale, CA 94086 

16K/Tape Basic $24.95 

Touch Typing provides a more traditional 
approach to acquiring typing skills. Progressing from 
Beginner to Advanced levels, repetitive drills are dis- 
played on the screen for one to duplicate. Exercises 
with one hand, then the other, then both — all the 
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way to typing paragraphs — are found in this pro- 
gram. The manual is excellent, and the method of in- 
struction is well founded. In the Beginner level, a 
keyboard is displayed on the screen, highlighting the 
letters being practiced. There is no upper/lower case 
provision at this level, although it is found at both 
the Intermediate and Advanced levels. Word and let- 
ter error counts, as well as typing speed (WPM), are 
kept and displayed at the bottom of the screen. 
Since this program incorporates the tracking of errors, 
there is no backspacing capability. 




Touch Typing. 

I have mixed feelings about the overall appeal of 
this program. It is less expensive, being on tape, but it 
seems to take forever to load. It is fundamentally 
sound and based on classic typing training methods, 
but it is somewhat boring compared to the other typing 
programs. Probably the most comprehensive of any of 
the programs, it may gather dust if the student is 
not highly motivated. 

There you have it. Four different programs to 
teach typing skills. All are well conceived and serve 
their purpose. For those on a tight budget, a program 
to give one practice typing sentences appeared in 
ANALOG issue 6 and has been reproduced in The 
ANALOG Compendium. Typing Trainer, by 
Regena, is written in BASIC for 16K Tape/24K 
Disk and employs special effects in the form 
of a steam engine and whistle. The program can 
easily be changed to include a wide variety of sen- 
tences of one's own choosing. 

Typing skills are important. Present day educators 
might say, "Maximal utilization of digital dexterity 
in interfacing with the computer will impact posi- 
tively in the endeavor to forestall nonsuccess." 
Oh yes, the answer to the riddle which seeks the com- 
mon 10-letter word using only the letters in the top 
row of the typewriter: "proprietor" and "repertoire" 
meet the requirements, but most apropos is, of 
course, typewriter. D 
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non-standard WhQXCV 

CHEI LinLTEHS (£> BV 

FIMftLLV! Utility that handles KOflLft! 
ATARI TOUCH-TABLET! B/GRAPH! WCROPAINTER! 
Or AMY 62 sector GR.8 or 7+ picture file! 

rEATllREIS XNCLUDE: : 

H TEKT tVOHLAy ih FWS beifhtf ahd FW 

colors or 232 bit pattertu usiti9 Om 

charactiH' setM INSTMiT BttOeRSM 

"PICTHHE M«VE"V( C9I.9E QOTWI 

mnONE LMGIMIXf RGSIDOn DISK mWJERI 

AMD MOREfT 

}4 raXNTER OlflWS IN FOIHt SIZES* f 

froH wallet photo to 8K14 inch posters! 

blocked left/centered/blocKed right! 

NflftKS ON INV GMPilU UIPi§LE PMHHR!*^ 

SAVE PORMAT3 : 

KOALA! ATARI TOUCH-TABLET! MICROPAIMTER! 

Convert one for»*at to another! 

Use your Masterpiece anywhere! 

BASIC/MACHIHE LANGUAGE LOADER PROVIDED! 

tSK BISK. . .JIKT $29.95 poft-raiiKf 

nunnnnnnuu 



t LISTER PLUS t 



FEHTURinO TVPE-H-LiriE 

Lists programs or text files in 
38 coluMn or full line forwat! 
* Prints ALL characters and Hil'm--H in * 
imSZ widths usiDf Atn character sett* 
II fonts provided or use one of your own! 
Dump GR. 8 or 7+ screens in FOUR sues!! 
HORKS ON ANY liflDPIIICS tAPiBLE ntHKHV.* 

iBEluiles TVre-fl-LINE, a tiny EditBr thai 
Hixes fonts and widths on the sane page! 
Save t>ie page on d'jsx to reprint onytihe! 

Prints fotit tables ih THRE£ forHats* 

Keep track of your gawe characters! 
THI5 AD COPY HAS P REPARED ENTIRELY 

using MHiOBIIBD with tvpe-a-line 
49( DISK. . .WILY $19.95 fwst-paid? I 



AMAILABLE NOH! CHECK OR MONEY ORDER TO! 

Trxolx— stcitxacrt^a MAGXC! 

P.O. liox 45 Gifard, Oliio 44420 

Ohio residents add 5Z sales tax 

Honey orders shipped imediately! 

DEALER INIinXXES INVITEOf 

«MinimJH 968 bit CDlUHn width & 
variable line feeds required. 

KOALA/ATARI TOUCH-TABLET/MICROPAIHTER/B/GRAPH 

are tradewarks of, respectively, 

KOALA TECH. Inc. /ATARI Inc ./DATA50FT/INH0W 
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Always the Lowest Prices on the Finest Quality 
at. . . COMPUTER CREATIONS 



A 

ATARI 




DD/DD 
20.99/box 
19,99/box 
18.99/box 



ATARI HOME COMPUTERS 

ATARI 600" Home Computer (1 6K RAM) CALL FOR 

ATARI 8C0XL- Home Computer (64K RAM) UPDATED PRICES 

DISK DRIVES 

RANA 1000 

TRAK ATD2 (Single/Double Density/parallel int./4k buffer) CALL 

TRAK ATD4 (Dual Drive) _„„ 

TRAK TURBO DOS IpnaTcn 

INDUS GT (Free Software) UPDATED 

ASTRA 1620 PRICES 

ATR - 8000 

GENERIC DISKS 

Generic 100% Defect-Free/Guaranteed MINI-FLOPPY DISKS 
Diskettes (1 Box Min.) - 1 per box 
SS/DD 
1 or 2 Boxes 17.49/box 

3-9 Boxes 15.99/box 

10-1- Boxes 14.99/box 

Bulk Diskettes with Sleeves - Price per Disk 

SS/DD DD/DD 

10-29 1.59 1.99 

30-99 1.49 1.89 

100-1- 1.45 1.79 



HARDWARE COVERS 

ATARI 400 5.95 

ATARI 800 5.95 

ATARI 1010 5.95 

ATARI 410 5.95 

ATARI 810 5.95 

ATARI 1200 5.95 

ATARI 1025 5.95 

ATARI 600XL 5.95 

ATARI 1050 5.95 

ATARI 800XL 5.95 

ATARI 1027 5.95 

EPSON MX-80 5.95 

EPSON FX-80 5.95 

EPSON RX-80 5.95 

EPSON RX-80 FT 5.95 

EPSON FX-100 7.49 

GEMINI 10X 5.95 

GEMINI 15X 7.49 

RADIX 10 5.95 

RADIX 15 7.49 

POWERTYPE 5.95 

DELTA-15 7.49 

RANA 1000 5.95 

INDUS 5.95 

TRAK 5.95 



DISKhl IE/CARTRIDGE/ 


CASSETTE FILES 




FlipN' File 


S 3.95 


Flip -N' File 15 


6.95 


FlipN' File 50 . 


26.95 


Flip 'N' File/The Original 


19.95 


Casselte 'N' Game File 


14.95 


Disk Bank 


3.99 


Disk Bank (Plastic) 


1.99 


Blank 30 Mm Cassettes 


1.29 


Blank 10 Mm Cassettes 


.99 


RAM (MEMORY) BOARDS 


Inlec 64K Board (400) , 


$109.00 


Intec 48K Board (4001 


89.00 


Inlec 32K Board (400) 


39.00 


l^icroblls 64K(600XL| 




Expansion 


129.00 


80 COLUMN BOARDS 




BIT 3 


$249.00 







ATARI PLATO SYSTEMS 

The Electronic Highway To The Universe 
Over 6000 Educational Programs 



SYSTEM I 

Atari 1030 Modem 
Atari Plato Cartridge 

$159 



SYSTEM II 

Atari 850 Interface Module 

Atari Plato Cartridge 

Anchor Mark XII Modem 

$549 



PRINTERS 

GEMINI 1 OX (80 Column) 279.00 

GEMINI 15X (136 Column) 399.00 

DELTA 10 (80 Column) 479.00 

RADIX 1 (80 Column) 639.00 

RADIX 15 (136 Column) 749.00 

Powertype Daisywhieel 379.00 

Epson RX-80 (80 Column) 339.00 

EPSON RX-80 (80 Column) 339.00 

EPSON RX-80 FT (80 Column) 469.00 

EPSON FX-80 (80 Column) 555.00 

EPSON FX-100 (1 36 Column) 749.00 

AXIOM AT-100 (80 Column) Includes Interface & Cable .... 229.00 

SILVER-REED EXP 500 Daisywtieel (80 Column) 399.00 

OKIDATA 92P 449.00 

TRANSTAR 315 549.00 

PRINTER INTERFACE CABLES 

APE FACE 65.00 

ATARI Universal Cable 59.00 

MPP-1 150 Parallel Printer Interface 79. OO 

Parallel Printer Cable 30.00 

PRINTER RIBBONS 

Gemini Printers (Black/Blue/Red/Purple) 3.00 

Epson Printers 6.00 

MONITORS 

Gorilla" Hi Res 1 2" Non-Glare Screen 89.00 

Gorilla" Hi Res 1 2" Non-Glare Amber Screen 99.00 

Sakata SC 1 00 Color Screen 239.00 

NEC 1260 109.95 

Monitor Cable 10.00 

MODEMS 

MPP-1 OOOC Modern 129.00 

Signalman Mark II Modem 79.00 

Hayes Stack Smartmodem (300 BAUD) 239.00 

Hayes Stack Smartmodem (1 200 BAUD) 549.00 

Novation J CAT 11 9.00 

Novation 1 03 Smart CAT 1 89.00 

Novation Auto CAT 1 99.00 

ATARI ADDITIONAL EQUIPMENT 

ATARI 850" Interface Module 

ATARI 1010" Program Recorder CALL 

ATARI 1020" 40-Column Color Printer/Plotter pQp 

ATARI 1025" 80-Column Printer ipnATPn 

ATARI 1027" Letter Quality Printer UPDATED 

ATARI 1 030" Direct Connect Modern PRICES 

ATARI 1 050" Disk Drive 

CX77 ATARI Toucti Tablet" 



To order call TOLL FREE 

1-800-824-7506 



COMPUTER CREATIONS, Inc. 

P.O. Box 292467 • Dayton, Ohio 45429 

For injormation call: (513) 294-2002 (Or to order in Ohio) 

Master Card - Visa - COD. (Add $2,501. All orders add $3.50 Shipping and Handling 
Ohio Residents add 6% for Sales Tax. ASK FOR OUR FREE CATALOG 
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BOULDER DASH 

by Chris Gray and Peter Liepa 

FIRST STAR SOFTWARE 

22 East 41st St. 

New York, NY 10017 

32K Disk/Tape $29.95 16K Cartridge $39.95 

by Tom Hudson 

To be honest, the members of the ANALOG staff 
have never been very impressed with most of the 
software from First Star. Some of their programs, 
such as Bristles, had messy gUtches; others just 
didn't cut the mustard in the fun department. 

Needless to say, I was very pleasantly surprised 
when I saw Boulder Dash. In my opinion, this game 
tops all of First Star's previous efforts in terms of 
originality, long-lasting challenge, and just plain fun. 

Original is best. 

In Boulder Dash, you play the part of Rockford, 
a small quasi-human with the power to dig through 
the earth. Rockford's objective is to collect as many 
glittering diamonds as he can. 

Rockford's job isn't that easy, though. He must 
dodge the boulders and diamonds which fall when he 
digs under them. One wrong step, and Rockford is 
only a fond memory! 

Some levels contain Fireflies, flashing objects 
which kill Rockford on contact. Their behavior is 
predictable, so Rockford can avoid them, if he keeps 
his eyes open. Rockford can also kill the Fireflies by 
dropping boulders on them. 

Butterflies are another danger for Rockford to 
look out for. They are similar to Fireflies, but move 
in the opposite direction. Unlike Fireflies, Butter- 
flies turn into diamonds when they are killed. 

Other features, such as a growing green amoeba 
and enchanted walls (which turn boulders into 
diamonds and vice-versa) add to the challenge of this 
original game. 

Long-lasting. 

Each level of Boulder Dash takes place in a dif- 
ferent "cave," made up of several scrolling screens. 
These caves range in difficulty from "extremely 
easy" to "almost impossible." There are sixteen 
caves in Boulder Dash, each with five difficulty 
levels and different puzzles to solve. Rockford's time 
in each cave is limited, so the screens must be com- 
pleted as quickly as possible. 

Unlike other games, Boulder Dash doesn't simply 
speed up the action on each level, but rearranges the 
obstacles and increases Rockford's quota of 
diamonds. 

Every four caves, you are given the chance to solve 
a "playable intermission" screen. If you successfully 
complete the screen, you are awarded a bonus Rock- 
ford. Some of these intermission screens seem more 
difficult than the caves (even though I've made it 
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through all sixteen caves, there is one intermission 
screen I can't get through — yet)! 




Boulder Dash. 

One nice thing about Boulder Dash is that all the 
caves are stored in memory while the game is being 
played. The computer doesn't have to access the disk 
each time a new level appears, so your disk is spared 
the extra wear. 

Just plain fun. 

Ever since Boulder Dash arrived, publisher Lee 
Pappas and I have been racing to solve each level. 
Boulder Dash is very addictive, because each new 
level presents new challenges. 

The level of detail in Boulder Dash is good, too. 
Whenever Rockford is standing still, his eyes will 
blink, he'll put his hands on his hips and tap his foot 
impatiently. 

The bottom line. 

Being a programmer myself, I couldn't help but 
have a small gripe about Boulder Dash. 

While the figures of Rockford, the Fireflies and 
Butterflies are animated smoothly, they "jump" 
from one position on the screen to the next. When I 
first saw the game, this bothered me somewhat, but 
after playing the game for some time I have found 
that it does not affect the playability at all. Boulder 
Dash is, quite simply, an exceptional game, and one 
of the best yet for the Atari computer systems. 

Incidentally, as further proof of this game's appeal, 
Boulder Dash has recently been adapted for arcade 
use by Exidy! D 
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by Joel Gluck 



Welcome, once again, to Our Game, the only 
monthly column that brings you extra-large doses of 
both insight and insanity. Many readers have asked the 
question: "Joel, why do you seem so out of touch?" 
Well, I'll tell you: I write this column two months 
before it is published. For example, even though you 
are reading the July issue of ANALOG (which 
appears in June), I'm writing this column in April. 
Such a time delay can make things extremely diffi- 
cult . . . 

For example, there's the Our Game Special Election- 
Year Game Idea Vote, which I initiated last month 
(the June issue, which appeared in May). This is an 
election to determine which game idea you, the 
reader, most want to see developed in Our Game 
(see last issue for voting instructions and descrip- 
tions of the four nominees). All votes must be mail- 
ed by August 1st, 1984. The problem is, since I have 
towait until August for all the votes to be in, devel- 
opment of "our game" has to wait until an issue two 
months after that, due to the delay factor. So, "our 
game" can't be started until the October issue. 

What this means is that I have four months of Our 
Game (July, August, September, and October) to 
do what I want! After careful consideration, I de- 
cided that the best thing to do would be to present a 
detailed treatise on the subtle relationship between 
ice cream consumption in Boston and the likelihood 
of global thermonuclear war. When I mentioned this 
idea to my closest friends, they laughed at me and 
began to abuse my priceless collection of eighteenth 
century floppy disks. I was ashamed and agreed that 
the only honorable thing to write about in the 
coming issues would be the development of a 
game . . . 



Viewer what? 

But before we proceed on to such trivialities as 
writing a game, let's take care of something really 
important: viewer mail! The amount of mail we're re- 
ceiving these days is growing by leaps and, uh, bigger 
leaps, but that doesn't mean the quality is improving 
any . . . If you're going to write to Our Game, please 
stick to English (or, if you must, Mandarin Chinese 
or Swahili), and please use standard writing instru- 
ments — I'd like to remind a few of our readers that 
salad dressing just doesn't make very good ink. Please 
keep this in mind. 

Our first letter this month comes from Matthew 
J.W. Ratcliff of St. Louis, Missouri. He has some use- 
ful additions to last month's tutorial on playtesting: 

The less the playtester knows about your program, or 
programming in general, the better. This will imme- 
diately tell you several things, like how well you trap 
errors. A person who seldom computes will quickly find 
any major and, quite often, subtle bugs. If it's a utility 
program which requests a filename, for instance, what if 
the person types KEEP for a load file, instead of 
D:KEEP? Does the computer sit there, dumb as a rock, 
with no error codes? Does a CTRL-3 get out of the problem 
(keyboard-forced end of file)? What about other ex- 
pected keyboard inputs; does CTRL-3 crash the program? 
Does the code disallow inverse video, shift clear, and 
the break key? 1 could go on and on about the trials and 
tribulations faced with expected keyboard inputs. Let a 
novice "fat-finger" the keyboard for a while, and you 
will find them quickly enough. 

Thanks for the good tips, Matthew. Handling key- 
board input is sometimes so frustrating that pro- 
grammers often avoid it entirely, checking only for 
values from the joystick or the console keys 
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(START, SELECT and OPTION). Actually, for 
most games or educational programs, keyboard in- 
put can be an unnecessary complication — working off 
only the joystick, for example, can make a program 
more user -friendly. 
Cecil C. Alton, of Dumfries, Virginia, writes: 

I would like a game 1 could play with my two-year- 
old. He is fascinated with the computer and especially 
likes BASIC — where he keys in letters, both singly 
and with repeat feature. Other games I have interest 
him, and he grips the joystick with eager anticipa- 
tion, hut he does not interact with the game. One wild idea 
is to build a game with a simple "press any key" re- 
sponse being elicited from the player. This game would 
have to be easy to learn — i.e., no difficult instructions 
required — and could he developed around a learning- 
curve concept (learn from mistakes or from player's 
responses). 

That's an excellent idea for a game, Cecil, and I 
believe someone's already done it! Monarch Data 
Systems, Inc., has just such a game — it is called 
SofToy. The game consists of nine cute little 
animated pictures on the screen, which are activated 
by pressing a key. In the easiest version, any key 
pressed will activate a picture. But the game can 
also be made harder, so that only certain numbers 
or letters will miake the pictures move. At its tough- 
est, SofToy presents a child with sequences which 
he or she must duplicate by hitting the correct keys, 
very similar to the electronic game called Simon. 
This program may be just what you're looking for, 
Cecil. 

Tom Hull, of Wakefield, Rhode Island, has some 
strong feelings about Our Game, not to mention a 
very unusual game idea: 

In my opinion, 1 think you're setting up too many 
rules. M)i dreams of sending you ' 'dream game" ideas were 
shattered when I couldn't fit in simultaneous, multi- 
players and no violence, period! Some of the requirements 
seem ridiculous to me because of how easily they could 
be solved. So here are my words of wisdom on each of 
your requirements. 

1. Violence: I agree; the wrong type of violence 
could be harmful to the young mirxds of children. The "kill 
or be killed" theme should be avoided, but what about 
the "survive or be killed" theme? I don't see how 
saving your own skin would be harmful to kids' minds. 
Say the only objective is to run away from falling build- 
ings or escape from a forest fire. How harmful can that be? 

2. Simultaneous play: Once again, I agree. It is fun 
when you either play against or in cooperation with a 
friend, but what if none of your friends like the game? 
This is why one should have the option for either 
single or simultaneous play. 

3. Sex Difference: This is the ridiculous one, because 
just a bit of good programming can solve the whole prob- 
lem. Consider the following: 



18 ? "'Do you want to be a boy or a gir 
1"; :IHPUT fl$ 

20 IF fl5="B0V THEM PLfiYERS=" "ttS" : REM 
!!ttS would be the character for a Hale 
player when redefined. 

38 IF flS = "GIRL" THEN PLftYERS="ej:&" : REM 
&'/.& would be the character for a fema 
le player when redefined. 

This could be modified to use P/M graphics or what- 
ever you'd want to use. Another method would he to use 
an animal to portray the player, say a turtle. That way, no 
one could accuse the turtle of being male or female, as long 
as you don't call the game Mr. Turtle, or Turtle Man. 

Now that that's off my chest, let's get to the game 
idea, which I call The Punkarium Wave. The setting 
is in a one-story mall. The player is an everyday person 
who just came out of the arcade and is about to go to 
the north end of the mall, where the person (you) has 
parked the car. Then you realize that, while you were 
in the arcade, the whole mall was taken over by punks, a 
class of people who all have mohawk haircuts, wear sun- 
glasses and carry around "boxes" that are all blaring 
out the same punky tune (that sounds like someone trying 
to play a synthesizer like a bagpipe)! 

Their "lifestyles" are contagious, so you must avoid 
any contact with them — or you will become one of them! 
You run along a scrolling mall, trying to reach the north 
end, where the only remaining unlocked exit awaits. This 
would be impossible, if it wasn't for your only defense. 
Somewhere in the mall is Marvin's House of Metal. If you 
can find it and get inside, you can turn on the mall's speak- 
ers and blare some heavy metal to drown out the punks' 
boxes. All of the punks will stop dead in their tracks 
and cover their ears, letting you skip on by them. In ten 
seconds, the punks will have turned off the speakers. If you 
are not out of the mall by then, the punks will rush to 
block the north exit and all hope will be lost. 

Well, Tom, I think your Punkarium Wave wins 
Our Game's "Weird Idea of the Month" award (your 
prize, a peanut butter and avocado sandwich, is in the 
mail). As for your complaint about Our Game, having 
"too many rules," let me say that there are no "rules" 
as to what you can send to Our Game. I like to 
see all kinds of game ideas, whether they be violent 
or non-violent, one or two-player, or whatever. The 
reason I've expressed a preference for non-violent 
games is simply that there have been so many 
violent video games that I anm rather bored with the 
concept. It takes creativity and imagination to come up 
with something really new, and it is my challenge to the 
readers to submit non-violent games. It doesn't mean 
they have to. 

As for your quick solution to the question of games 
that are biased toward one sex, I'm not so sure that 
changing the graphics is all that is needed. I believe 
that the general subject matter of most video /computer 
games tends to attract males more than females. 
Again, it's a challenge to the readers to come up 
with something different. 
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The task is not impossible. Last month, to kick off 
Our Game Special Election-Year Game Idea Vote, I 
nominated four game ideas, all of which were based 
on reader input, and all of which were essentially 
non-violent, two- or multi-player, and none of 
which seemed sexually biased (except maybe for 
Idea #1, which has a husband and his "huge wife," 
but that can be modified). 

Our last letter this month comes from Greg 
Rizzo of Chicago, Illinois: 

The truck that delivers peanuts to the zoo is late. 
You, the elephant, become very hungry. When the truck 
finally arrives, it is in such a hurry that it crashes 
and spills peanuts all over the zoo. You become so 
hungry that you break out of your cage and travel all 
around the zoo, shown on tKe TV screen as a maze, 
looking for and eating peanuts. But be careful, because 
there are mice wandering around the zoo. If they touch 
you, theji will scare you to death. Also, there is a zoo- 
keeper who will appear on the screen looking for you. But, 
for your protection, there are mousetraps set at random 
spots in the zoo. You get points for eating peanuts and 
for catching mice in mousetraps. But you will lose a life 
for getting scared to death by a mouse. 

I must admit it wasn't really my idea. It was really 
my brother's and his friend's. I just expanded on the idea. 

Greg! How could you? Stealing your brother's game 
idea like that! Tsk, tsk. It's a nice game idea (I like 
the story behind the game, especially), but the game 
play itself sounds suspiciously like Pac-Man. What if, 
instead of being the elephant, you were the zookeeper? 
The elephant is loose in the zoo, eating spilled peanuts. 
Your aim is to get the elephant back into his cage 
as fast as possible. You do this by closing and opening 
gates in the zoo/maze, and by moving many of the pea- 
nuts so that they make a trail leading back to the 
elephant cage. To make the game more interesting, 
the maze could be different every time. 

Well, that's it for viewer mail this month. Even 
though the Our Game Special Election-Year Game Idea 
Vote is in progress, don't hesitate to send in any new 
idea you have. If it's any good, it'll probably appear 
in these pages — which means that people all over 
the U.S.A., not to mention the entire world, will 
see your name and read your idea! 

Clues. 

This month, and the next three months of Our 
Game, will be devoted to a discussion of the crea- 
tion and development of a simple computer game. 

The working name for this game is Clues, and the 
first prototype version, CLUES. A, appears in 
Listing 1. 

The idea behind Clues is very simple, and not 
entirely new. When playing, you are presented with a 
grid underneath which there is a buried treasure. To 
find the treasure, you move your man (whom I call the 
Seeker) to a likely spot and hit the trigger. If you 



were correct, you win. If not, the computer gives you 
a clue as to where the treasure is. 

The clue is either an arrow or a number. An arrow 
points in the general direction of the treasure. A 
number gives the approximate distance of the treasure 
from your current spot. 

This is not a new idea. I beheve that there was a 
game of this type for the Atari 2600 (way back when it 
was called the Video Computer System). In that game, 
you were looking for a flag, not a treasure. Big 
difference . . .! 

Of course, the CLUES. A is a simple one-player game. 
More later about how we can improve and expand it. 

Explanations. 

Unlike the dreaded FLW listing from issue 16, 
Listing 1 is fairly clear. There is no mysterious string 
manipulation or brain-damaged program logic, and 
everything is simple and well documented with 
plenty of REMarks. Note: When typing the listing in, 
do not omit REM's that appear alone on a line. These are 
frequently accessed by GOTO's and GOSUB's. 

And now, an Our Game first ... a detailed explana- 
tion of the program: 

Lines 200-260 are the top level of the program. 
The way it is organized, into five GOSUB's (with 
REMarks), makes the program very easy to read and 
follow, and makes finding specific parts of the pro- 
gram simple (for example, if you want to change 
something in the screen setup. Line 220 informs you 
that the screen initialization code begins at Line 3000). 
I usually begin all large BASIC programs with a series 
of GOSUBs like this. 

Notice that Line 250 assumes that a variable called 
PLAYAGAIN was given a value at some point, 
probably in the subroutine starting at Line 5000. If 
PLAYAGAIN=1 (1 meaning "yes" or "true"), then 
the game branches back to the screen initialization 
routine. 

Getting Ready. 

The routine starting at Line 1000 prints the 
instructions and waits for the user to press the 
START key (Line 1200 handles that). The sub- 
routine is called "Intro/Options," because if there 
were any game options they would appear at this point. 

Starting at Line 2000 is the initialization procedure. 
Lines 2100-2250 handle the joystick data. The prob- 
lem with the Atari joystick is this: what you'd like 
to have is the horizontal and vertical direction of 
the joystick (indicated by -1, 0, or 1 for each. 
For example, a vertical direction of -1 means "up," 
and a horizontal direction of 1 means "right." Zero 
means there is no movement along that component), 
but what the joystick gives you is a value from 5 to 
15 that stands for one of the eight directions. To 
convert from this value to the horizontal (X) and 
vertical (Y), I READ -I's, O's, and I's into 2 arrays 
(XS() and YS( )) indexed off the joystick value. For 
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Cartridge 
Maker™ 

****** 

EPROM BURNER for the 
ATARI' 400, 800 and the NEW XLs 

$159 



****** 

* * * Put your own program into an 8K or 
16K cartridge by burning object output from 
an assembier or a Basic compiler into 
EPROMS. 

Programs 2K, 4K or 8K EPROMS — 
2716 
(2516), 2732, 2732A, 2532, 2764, 2664. 

Manual, software, ali adapters includ- 
ed. Plugs in as a cartridge! 

* * *Can be used with as little as 16K of 
memory, with or without a disk or cassette. 
RUNS ANYWHERE IN THE WORLD. 

* * *8K EPROM cartridge boards 

for 2532/2732 $15 

* * *16K EPROM cartridge boards 
for 2764 



$15 

RADICAL SYSTEMS™ 

2002 Colice Road. SE, Hunlsville, Alabama 35801 

(205) 539-0521 

CHECK. MONEY ORDER or INTERNATIONAL 
DRAFT. MINIMUM SHIPPING S4. CO.D. ADD $2. 
Foreign orders welcomed bul must be prepaid. 
Minimum foreign shipping U.S. $15. 



ATTENTION ATARI DISK 
DRIVE OWNERS 

Back up your 
valuable software. 

THE CHIP 

THE CHIP with Archiver/ Editor Software for the Atari 
810 and 1050 disc drives. Includes Disassembler & 
Sector Editor. Includes Custom Formatter and Map- 
per. Backs up virtually any disk. 

$129.95 POST PAID 

Available soon lor 

other Atari compatible disc drives. 

HAPPY 810 ENHANCEMENT 

Complete with Warp Speed software package. Plug-in 
installation — no soldering. Backs up any disc. 
Regular Price $249.95 
LIMITED SPECIAL OFFER $199.95 

Soon available for other disc drives. 

HAPPY OWNERS 

Update your enhancement with Happy Version Arch- 
iver/ Editor. Makes Happy drives compatible with the 
chip. 

S39.95 POST PAID 

All software lor the Atari DISCOUNTED 30% or MORE. 
Discounts on all Atari compatible hardware. 

Send for free brochure on any of the above or for details on our 
software discounts. 



SOUTHERN SOFTWARE 

A DIVISION OF SOUTHERN SUPPLY COMPANY 
1879 RUFFNER ROAD BIRMINGHAM, AL 35210 

24 HOUR PHONE 205-966-0986 
Order belore 1 1 A.M. lor same day shipping. 



YOU CAN DO IT 

PROGRAM LIKE A PRO 

SUPERware presents 3 easy-to-use aids for the ATARI 
programmer, all written in machine language, which 
will increase the power and utility of your computer 
and give your programs professional quality, while 
saving you both time and effofl. 

SCROLL IT allows you to implement variable speed 
horizontal, vertical, and diagonal fine scrolling in a 
BASIC program. It supports all ANTIC character modes 
and handles the intricate details of display list 
maintenance. 

16 K tape or disl< 

PACK IT enables you to pack any large data file into 
a smaller file, as well as load and unpack these files. 
PACK IT is great for packing high resolution graphics 
screens. Testing has shown the average 7680 byte 
screen can be packed into a 2500 byte data file! 
32 K disk only 

CHAIN IT allows you to write very large programs in 
BASIC by segmenting the program up into many 
smaller subprograms with the data being chained from 
program to program automatically. This is done entirely 
in RAM and takes practically no computer time. 
16 K disk only 

$19.95 each/all 3 for $49.95 

SUPERware 

Order 2028 Kingshouse Rd. Dealer 

Now! Silver Spring, MO 20904 Inquiries 

(301) 236-4459 Invited 

MC, VISA, AMX, Check, M.O. accepted 
Include $2 shipping, 5% tax, in MO 

Write for your FREE copy of our pamphlet BASIC 
MAGIC I - programming tricks for the ATARI user. 
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CIRCLE #115 ON READER SERVICE CARD. 



WHAT IS 
D:CHECK/C:CHECK? 



Most program listings in ANALOG are followed by a table of numbers appearing as 
DATA statements, called "CHECKSUM DATA." These numbers are to be used In conjunc- 
tion with D:CHECK and C:CHECK, which appeared in the ANALOG Compendium and 
Issue No. 16. 

D:CHECK and CiCHECK are programs by Istvan Mohos and Tom Hudson. They are 
designed to find and correct typing errors when entering programs from the magazine. 
For those readers who do not have a copy of either article, send for a copy of back issue 
16 ($4.00) or The ANALOG Compendium ($14.95 plus $2.00 shipping and handling) from: 

ANALOG Computing 

P.O. BOX 615 
HOLMES, PA 19043 
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example, if the joystick reads "6" (up and to the right), 
the value given by YS(6) is -1 (up) and the value 
given by XS(6) is 1 (right). 

The different characters used for "arrows" in the 
game are in DATA on Line 2360 (in future versions 
of the game, we'll redefine the character set to have 
better-looking arrows). The ASCII codes of these are 
read into the array ARROW() in the loop starting on 
Line 2320. Notice that I have to READ each arrow 
using the small string called CH$, before storing the 
ASCII value of CH$ (plus 128 to make it reverse 
field — the "negative" image of the character) into 
the ARROW( ) array. 

The ASCII codes for other characters that will 
appear on the screen are stored in aptly named varia- 
bles starting on Line 2400. The GRID character, 
for example, is a period (.) and the SEEKER charac- 
ter is the solid ball graphic (CTRL-T). These charac- 
ters, too, will be modified in future versions. 

Screen initialization begins on Line 3000. The game 
itself is in graphics zero, the normal text mode, so, to 
make it look a little different, the screen and 
border colors are changed on Line 3110. Line 3120 
uses a nifty POKE 752,1 which hides the cursor. 

Starting on Line 3200, we see something interesting: 
COLOR WALL. Now we know that the variable 
WALL was defined as the ASCII code of a reverse 
field space (a solid white block) on Line 2410. We 
also know that COLOR is ordinarily used in plotting 
modes like 3,5, and 7 to select a color register to draw 
with. Well, it so happens that invoking COLOR 
with the ASCII code in a character mode lets you 
draw with that character using PLOT'S and DRAWTO's. 
This is exactly what happens on Line 3210, which 
draws a wall using the WALL character around the 
screen. 

Lines 3250-3280 use a similar technique to draw 
the grid. COLOR GRID selects the appropriate 
character, and the loop does the rest. Lines 3300-3310 
set up the starting coordinates of the Seeker (the 
approximate middle of the screen) and plot it. There 
is also a variable called UNDER, to store the value 
of what is under the Seeker (initially, plain old grid 
character), in case the player moves the Seeker over 
some of the clues he has dug up. 

Lines 3400-3420 set up the treasure, and make sure 
its position is not equal to the Seeker's starting 
position. 

The game. 

The operating code for the game itself begins 
on Line 4000. Right before it begins, the timer is 
set to zero on Line 4100 (the Atari has a real-time 
clock measured in sixtieths of seconds — jiffies — at 
memory locations 18, 19, and 20), and the number 
of GUESSES is set to zero at Line 41 10. This is so we 
can tell the player how long and how many guesses he 
or she took to find the treasure when the game is 
over. 



Lines 4200-4240 are the nucleus of the game. All 
actions stem from these lines. The stick and trigger 
values are stored. If the trigger is being pressed and 
the stick is still (Line 4220), it means the player 
wants to venture a guess, so the program branches to 
the "take a guess" subroutine. If the joystick isn't 
idle (Line 4230), then the Seeker must be moved, so 
the program branches to 4300. If neither of these 
conditions are met, then the program does nothing 
and loops back to get new values for the joystick and 
trigger. 

The routine for moving the Seeker (starting on Line 
4300) contains a POKE 77,0. This is to prevent the 
computer from going into "attract mode" (color flip- 
ping), which occurs if the keyboard isn't used for about 
nine minutes. This poke is in the movement routine, 
so that if the player has stopped playing the game, the 
poke won't be executed, and after nine minutes the 
computer will go into attract mode. 

Line 4310 uses the joystick direction arrays we 
created (you remember, way back in the initialization 
routine!) to convert the joystick value (S) to horizon- 
tal direction (XD) and vertical direction (YD). Line 
4320 looks one spot ahead of the Seeker in the 
current direction, and stores the ASCII value of what's 
there into the variable G (that's how the LOCATE 
command works — consult your BASIC Reference 
Manual for details). If G is equal to the value of 
WALL (Line 4330), that means there is wall ahead of 
the Seeker. The Seeker isn't supposed to move 
through walls, so the program goes back to the game 
loop. 

To move the Seeker, we erase it, update its posi- 
tion, and redraw it. This happens quite clearly on 
Lines 4350 to 4370. The only trick is, instead of 
erasing the Seeker with a blank space, we are erasing 
it with what's underneath it (Line 4350), whether it 
be a grid or an old clue. Then, on Line 4380, 
the variable UNDER is given the value of G, which is 
what's under the Seeker now. 

The "take a guess' routine, starting on Line 4500, 
is a bit more complex. First, it increments the number 
of guesses (Line 4502) and then proceeds along the 
following logic: 

Line 4505 — If the guess is correct (a win), pop 
out and return to the top level. 

Line 4520 — If what's under the Seeker is an 
old clue, jump ahead (to 4700) and display that 
clue. 

Line 4530 — Compute the distance from 
the treasure. 

Line 4540 — If the Seeker is too far away to give 
a one-digit distance clue (or if a random whim is 
heeded), jump ahead (to 4600) to get an arrow 
clue. 

(Our Game continues on page 88) 



ANNOUNCING A MAJOR BREAKTHROUGH FOR ATARI COMPUTERS: 



aMIMMiMiiiili'iii I 




t 


» J 


l.p 


' 


"'swmi^&- 


■•1 


L. 


ir'fHWIWH' ' ' ■ 


i 








in 






-^■k. 




... , ; - 

i^..— owe 
1^^^ .... z_ »~ 




^H.-tt \ HBWi 






' Bl 




^ 









i ™J^B/ ""^'J^^ 




The Superbly Engineered Indus CV" Disk Drive The Critically Acclaimed Miles Accounting System IP 
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These state-of-the-art components 
transform any Atari computer ; 
into a powerful, productive business system. 



Here^s the Facts on just how 



Go firom 88K (or 127K) 
to an Astounding 180K! 

Your Indus GT disk drive opens 
the door to a whole new world 
of previously untapped 
computing power. The fact is, 
the other parts of your Atari, 
microprocessor and memory, 
are identical to those of an 
Apple //e. All your Atari ever 
needed was more disk storage... 
and with Indus you Ve got it. 



EQUIVALENT SYSTEM 
PRICE COMPARISONS: 


ATARI 


A 


# 


IBM 




800XL 


//e 


PC 


Computer w/64K and 2 Disk Drives 


1297 


2445 


2633 


Monitor with interface and Cable 


121 


inc! 


680 


Printer inierface and Cable 


134 


120 


205 


Printer 


449 


449 


595 


TOTAL HARDWARE 


1991 


3014 


4113 


General LetJgor 


145 


395 


595 


Accounts Receivable 


145 


395 


595 


Accounts Payable 


145 


395 


595 


Payroll 


FREE! 


395 


595 


TOTAL SOFTWARE 


435 


1590 


2380 


TOTAL PACKAGE 


2426 


4594 


6493 


1 



Based on Manufactuen Suggested Retail Price 
as of 4/84. Actual dealer price may vary. 



Compare Indus GT 
performance with other drives. 

Housed in a sleek, compact cabinet, the Indus GT coordinates 
perfectly with your Atari computer. 

Reach track 39 in less than one second. Increase your Atari's transfer 
rate 400 percent using the exclusive Indus SychroMesh DataTransfer^" 
mode. Compare that to others' drives. 

And while you're 
comparing, consider 
the built-in software 
that comes with every 
Indus GT: A 
comprehensive word 
processing package, an 
electronic spreadsheet, 
and a data base 
manager. 

That adds up to 
formidable Atari 
performance at about 
half the price of an 
Apple; hardly a 
"games" machine! 




Reliability. 

Convenience. Protection. 

Take them for granted 

with Indus. 

A smart, smoked-glass dust 
cover, activated by air-drive. The 
AccuTouch™ push-button 
control system. These are just 
two of the extra operating 
innovations built into your Indus 
GT. These big steps beyond the 
ordinary assure hassle-free daily 
operation, and unusually long 
drive life. 

Innovations in convenience 
abound. Automatic display of 
head-positioning; LED-lit Busy 
and Protect lights, and a two- 
digit LED register, only scratch 
the surface. And every Indus GT 
includes a rugged, molded 
PortaCase^" that doubles as an 
80 disk library. 




The Indus GT is also the perfect 
storage peripheral to power the 
incomparable. Miles Accounting 
System II. 



Please send me information on Indus GT disk drives 
and the Miles Accounting System II business software. 



YOUR NAME 



YES NO 

D D I currently own an 
Atari. Model # 

D n I currently own a 
disk drive. Brand: 



D D I currently own 

Miles Accounting 
System II modules. 
They are: 



Indus 



INDUS SYSTEMS 

9304 Deering Avenue 

Chatsworth, CA 91311 

(818) 882-9600 



»1984M[7esCompuffng/nc. and Indus Syilcm&.MiiesAccoLiniing System II is J iradem.irk of Miles Compuiins Inr, Indus GT is a trademark of Indus Systems. Atari is a trademark of Al,iri Inc., a Warner Cornmuniaitions Co. 



effective your Atari can be: 




The Finest Accounting System 

The critics agree. Miles 
Accounting System 11 is not only 
the finest accounting system 
available for the Atari today, but 
it rivals any system available for 
other personal computers. And 
it's the other half of the 
astonishing new Atari business 
power package. 

While part of the overall 
Accounting System, the Miles 
Payroll System is particularly 
esteemed. Here's what 
respected computer industry 
publications have to say about it: 



available for the Atari today. 

"In all respects — 



InfofVoKld 

Miles 

Payroll System 



IE 



features, performance, 
ease of use, docu- 
mentation and 
support — this is a 
professionally con- 
ceived and executed 
program. We look 
forward to other 
business software 
from Miles Computing 
that will serve the 
needs of Atari owners." 



'The performance of Miles Payroll system 
is excellent. It handles all its promised 
features quickly and easily. ...It is an easy- 
to-learn program that is very powerful." 

—InfoWorld 

' So much for the Atari's reputation of 
being a games-only machine." 

— Desktop Computing 



Take absolute, effortless 

Conunand of your firm's 

Accounting needs... 

Vifith one swift stroke. 

There are six modules in the 
Miles Accounting System 11. 
Each can function independently 
of the others. But when linked 
together they can transform 
your Atari from a mild- 
mannered games machine into a 
powerful, integrated business 
productivity tool. 

Powerful but Simple. 

For all of it's versatility and sheer 
power, your "new" Atari system 
is utterly simple to use... even 
for beginners. 

As ingenious as the Miles 
Accounting System 11 is, the true 
genious is that the programs 
have been written to enable 
virtually anyone to master them 
quickly. And the documentation 
is excellent; logical, clear and 
concise. 

User support is guaranteed 
because Miles Computing is a 
company that cares about its 
customers. That is evidenced by 
their willingness to show you 
before you buy. With that in 
mind, drop by your local 
computer store and see our self- 
running demonstration of the 
Miles Accounting System II. 




MILES COMPUTING INC. 

7136 Haskell Avenue, Suite 300 

Van Nuys, CA 91406 

(818) 994-7901 

CIRCLE #117 ON READER SERVICE CARD. 



Here's the Bottom Line: 

Buying an Atari computer is the 
best move you can make. With 
an Indus GT and Miles 
Accounting System II, there 
aren't any computer systems that 
can equal its new 
price/performance. 



Special Offer. 

If you act quickly, you can select 
any three Miles Accounting 
System II modules, and get a 
fourth of your choice absolutely 
FREE. 

Call today for more information, 
or mail the coupon in this ad. 



Apple //c is J lradem.irk of Apple Compiilcr Inc. IBM PC is a trademark of Inlernalioniil Business Machines in 



The Latest Innovations From CDY 
For Your Atari System 



OMNIMON! Resident Monitor 

ANTIC July '83 review by David Duberman: 

"OMNIMON! by David Young is a machine-language monitor that should 
have come with the ATARI. In fact, every microcomputer should have this 
sort of hardware based monitor installed. Most, however, do not. Now, for a 
relatively low cost, you can equip your ATARI 400/800 with a truly 
sophisticated programming tool. Whether you're an experienced programmer 
or a wondering beginner, OMNIMON can, if wisely u.sed, help you to fully 
understand the working of your computer." 

ANALOG July '83 review by Brian Moriarty: 

"OMNIMON! can be a great addition to your Al ARI computer if you know 
what to do with it. The ability to "freeze" a running program on-the-fly and 
examine the hardware registers is invaluable for testing and debugging; Ihe 
sector-level disk functions are alone worth the price of Ihe board . . . 
OMNIMON! might be one of the smaricsl investments you can make." 

September '83: "These of you who read my review of OMNIMON! in issue 
#12 know what a godsend it is for serious programmers. This ROM-resident 
monitor has saved me many hours of program development and debugging 
time, and recently made it possible for me to recover several otherwise unsal- 
vageable text files that were lost when my word processor accidentally 
destroyed a disk directory. Ironically, the review you are reading is one of 
those salvaged files! Three of the ATARIs in our offices are now equipped with 
OMNIMON! boards, and more are on the way. Staff programmers Tom 
Hudson and Charlie Bachand both swear by OMNIMON!" 



New OMNIVIEW 80 Column Upgrade 

Did you know that for most applications you do not need an expensive, slot 
consuming 80 column board to enjoy the power of 80 columns? Would you 
400 owners like the convenience of 80 columns? OMNIVIEW takes advantage 
of the high resolution graphics mode built into the ATARI to generate an 80 
column screen editor essentially identical to the ATARI screen editor (E:, S:). 
Thus, you can use OMNIVIEW in any environment where you would normally 
use the 40 column "E:" (e.g., BASIC, Assembler/Editor, etc.). The 80 col- 
umn "E:" of OMNIVIEW has been optimized for speed so that it is notsigni- 
licantlv slower than 40 column "E:". In addition, the character font was 
specially designed to be legible on an ordinary TV set! A monitor is recom- 
mended, but not really necessary for casual 80 column operation. The Bit-3 
version of LJK's 80 column Letter Perfect has been modified to support 
OMNIVIEW and other programs are sure to follow. CDY, for example, will 
.soon publish an 80 column screen editor similar to MEDIT for use with 
OMNIVIEW. 



New OMNIMON-XL and OMNIVIEW-XL 

600XL and 800XL owners will .soon be able to equip their computers with 
OMNIMON and/or OMNIVIEW. In addition, the Newell enhanced 
operating system and Fastchip lloaling point package will be included at no ex- 
tra charge. This will essentially turn your XL back into a 400/800 compatible 
machine and allow il to run most of the software which the XL-OS will not. A 
switch will allow you to select the XL-OS when needed. Call for availability. 



What Is OMNIMON!? 



Pricing 



OMNIMON! is a PC board which plugs into your 400/800 (soon to be 
available for the XLs also) and gives you complete control of your coitipuler. 
Even though it is always available (by pressing SELECT and SYSTEM 
RESET) it takes up no user memory because it resides in the unused 4K block 
at SCOOO. Use it to interrupt, examine, and manipulate any program in 
memory whether it be disk, cassette, or cartridge based. Il is especially good 
for program development or customization of existing programs. The flexible 
disk I/O allows you to write to or read from disk in either single or double 
density. You can edit raw sector data or even load a file without DOS. Many 
debugging tools are at your disposal: Display / Alter memory or 6502 registers, 
Disa.ssemble memory. Search memory. Hex /Char modes. Single Step execu- 
tion, JSR or GOTO address. Push / Pull stack. Printer dump, etc. After inter- 
rupting a program with OMNIMON,!, many limes it is possible to return to the 
program as if you had never left it (e.g., BASIC, DOS, etc.). Instructions are 
provided for the addition of a simple toggle switch to make OMNIMON! invi- 
sible, thus making it compatible with all software. An external cable is now 
provided to eliminate the need to solder directly on the board. 

New 8K OMNIMON! Upgrade 

This enhancement, which is available to all OMNIMON! users, includes a 
substantial number of features not available in the standard version. The 8K 
OMNI resides in an 8K ROM which has been modified by the addition of a 
switch for selecting either of two 4K banks. The additional features include 
Hex Conversion and Hex Arithmetic, Block Move, a Relocater, and a Line 
Assembler. A Binary Load command allows you to load any binary load file 
without DOS and doubles as a disk directory command which prints out the 
start sector of each file. Lockup recovery allows you to recover from system 
lockup, meaning that when your computer freezes, you can usually salvage the 
program or text file in memory by popping into 8K OMNI and dumping 
memory to disk. Advanced users will like the user extcndibility feature which 
allows them to make use of the interface routines of 8K OMNI in their own 
software. One of Ihe mcst exciting features of the 8K OMNI is Ihe resident 
Ramdisk handlers. They allow AXLON Ramdisk owners to u.se this powerful 
device with any DOS which u.ses standard SIO calls and even with boot pro- 
grams like word processors and games which access the disk a lot. Several addi- 
tional features make this version very valuable for advanced programmers, but 
if you have a Ramdisk, 8K OMNI is a MUST! 



Hardware: Standard OMNIMON! Piggyback Board 
OMNIMON-XL /OMNIVIEW-XL 

Knhancemcnls: (subtract $5.00 if ordered with board) 
8K OMNIMON Enhancement 
8K OMNIVIEW Enhancement - 

(4K OMNIMON with 4K OMNIVIEW) 
4K OMNIVIEW Enhancement 



$99.95 
CALL 



$45.00 



$45.00 
$30.00 



Newell RAMROD OS Board 

This is a new operating system board which replaces the existing OS board. It 
allows you to use EPROMs in place of the ATARI OS ROMs and comes with 
an enhanced OS which includes additional graphics modes and a fast cursor. It 
al.so has a .socket which will accept any version of OMNIMON and thus is an 
alternative to the OMNIMON! piggyback board. For the 800 only. 

RAMROD OS Board with Standard OMNIMON $149.95 

RAMROD OS Board with 8K OMNIMON or 8K OMNIVIEW $189.95 

Same as above with Fastchip Floating Point Package $209.95 

Fastchip Floating Point Package by itself $29.95 

How To Order 

We accept checks, money orders, or credit cards (Visa or MC). COD must be 
payed with cash or MO. Our toll free order desk is (800) 227-3800 ext. 561. Call 
this number only if you know exactly what you want and be explicit! They can 
answer no questions. For faster service or if you have questions please call or 
write: 



CDY Consulting 

421 Hanbee 

Richardson, TX 75080 

(214) 235-2146 
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16K Cassette or Disk 



by David Karp 



In the game of Buzz-zap! you are Stanley the Bug 
on his way to work. However, this is not an ordinary 
morning. This morning Stanley is pursued by a pair 
of killer strawberries and is trapped in a maze of 
deadly no-pest strips. As if this isn't bad enough, 
the hive he works in seems to be (and is! ) moving away 
from the hapless bug. 

Buzz-zap! is written in Atari BASIC with two 
machine language subroutines, called with the USR 
command. The first of these is Tom Hudson's P/M 
mover subroutine (issue 10, page 73), the second is 



just to flash the title screen. In the program's main 
loop first the stick is read, then Stanley is moved 
accordingly. Then the strawberries are moved so that 
they go towards Stanley. Then the hive is moved away 
from Stanley. Lastly, the collision registers are checked 
to see if Stanley has touched the walls, the strips, the 
berries or the hive. One point of interest is that each 
time Stanley gets to work (each board), the variable 
B is incremented and POKEd into location 201 
decimal for storage until the title screen prints it. 
This way the score or number of boards is recorded. 



Turn your Atciri 
into a Ferrari. 



Introducing the all-new 1984 Indus GT™ disk 
drive. The most advanced, most complete, most 
handsome disk drive in the world. 

A flick of its "Power" switch can turn your Atari 
into a Ferrari. 

Looks like a Ferrari. 

The Indus GT is only 2.65" high. But under its 
front-loading front end is slimline engineering 
with a distinctive European-Gran flair. 

Touch its LED-lit CommandPost™ function con- 
trol AccuTouch™ buttons. Marvel at how respon- 
sive it makes every Atari home computer. 

Drives like a Rolls. 

Nestled into its soundproofed chassis is the 
quietest and most powerful disk drive power sys- 
tem money can buy At top speed, it's virtually 
unbearable. Whisper quiet. 

Flat out, the GT will drive your Atari track-to- 
track 0-39 in less than one second. And when 
you shift into SynchroMesh DataTransfer,™ you'll 
increase your Atari's baud rate an incredible 
400%. (Faster than any other Atari system drive.) 

And, included as standard equipment, each 
comes with the exclusive 
GT DrivingSystem™ of 



software programs. World-class word processing 
is a breeze with the GT Estate WordProcessor.™ 
And your dealer will describe the two additional 
programs that allow GT owners to accelerate their 
computer driving skills. 

Also, the 1984 Indus GT is covered with the GT 
PortaCase™ A stylish case that conveniently dou- 
bles as a 80-disk storage file. 

Parks like a Beetle. 

The GT's small, sleek, condensed size makes it 

easy to park. 

And its low $449 price makes it easy to buy 
So see and test drive the incredible new 1984 

Indus GT at your nearest 

computer dealer soon. 
The drive will be 

well worth it. .^^^™^^—... -. 



Indus 




The all-new 1984 Indus GT Disk Drive. 

The most advanced, most handsome disk drive in the world. 




Foradditionalinformation,calM-800-33-INDUS. In California, call 1-800-54-INDUS. 213/882-9600. 

© 1983 Indus Syslems 9304 Peering Avenue, Chatsworth, CA 91311. The Indus GT is a product of Indus Systems. Atari is a registered trademark of Atari, Inc. 
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Line documentation. 

Lines 10-140 — Initialize; colors, shapes, 
M/L routines. 

Lines 150-450 — Main loop; read stick, 
move bug, move hive, move berries, check 
collisions. 

Lines 460-480 — Death routine, re- 
initialize. 

Lines 490-510 — Next board routine, end. 

Lines 520-770 — Title screen. 

Lines 780-840 — Draw board routine. 

Lines 850-870 — Tom Hudson's P/M 
mover initialize. 

Lines 880-890 — Data for title screen M/L. 

Lines 950-980 — Data for P/M mover 
M/L. 

Lines 950-980 — Player shape data. 

Lines 990-2060 — Board data. 

Variables. 

C,I,N,Q,Z — Working, data, or loop variables. 

A — USR variable. 

B — Board flag. 

MOVE,PMMOV$ — M/L variables for P/M 

mover. 

PMBASE;PMB — P/M base variables. 

P$,PL$,PS$ — Player shape data strings. 

P,PL,PS — ADRess of above. 

X,Y — Stanley's position. 

EX, EY, GX, GY — Berries' position. 

FX,FY — Hive's position. 

AA — Stick variable. 

XI,YI — Modifiers to X and Y 

X1,Y1,X2,Y2 — Coordinates of strips. 



10 POKE 281,0 

2fl FOR C=e TO 3:50UHD C,e,8,e:NEKT C 

30 GOSUB 610 

40 FOR C=e TO 3:5QUND C, 0, 0, 8 rNEMT C 

50 G05UB 850 

60 DIM PSt5J,PL${6J,PSSC6J :P:=ADRtPSJ :P 

L^A&R tPLSl : P5-ftOR CP5S J 

78 FOR 1=1 TO S:READ N: P$CI}=CHR$ (N) :N 

EXT I 

88 FOR 1=1 TO 6: READ N:P5$ CIJ =CHR$ (Nl : 

NEXT I 

98 FOR 1=1 TO 6: READ N: PL^CII =CHR$ CN} : 

WEXT I 

188 GRAPHICS 3:P0KE 559,46:C0L0R 2:PL0 

T 8,8:DRAMT0 39,0:DRAHT0 39,19:0RAMT0 

8,19:DRAMT0 8,e:P0KE 752,1 

118 POKE 16,64:P0KE 53774,64 

128 POKE 784, 15: POKE 785, 66 '.POKE 786,2 

55: POKE 787, 68: POKE 53278,244 : POKE 623 

.1 

138 G05UB 788 

148 X=55 : Y=86 : EX=53 : EY=15 : FX=181 : FY=33 

:GX=197:GY=88:P0KE 53278,244 :SOU«D 0,2 

55,14,4:50UND 1,233,14,2 

158 FOR Q=l TO 3 

160 AA=5TICK(0J 

170 KI= tAA=7J - (AA=11} : YI= (AA=13} - f AA=1 

4} 

180 XI=XI* CAA=6) + (AA=5] - tAA=18) - tAA=9J 

: YI=YI+ CAA=9) + CAA=5} - CAA=10] - CAA=6) 

198 X=X+XI:Y=Y+YI:POKE 53278,244 

280 A=U5RC!10UE,e,PMB,PL,X,Y,61 

218 MEXT Q 

228 POKE 53278,244 

230 IF PEEKC532523=2 THEN 468 



248 EX=EX-(EX>X3+{EX<XJ 

250 EY=EY-tEY>Y3+fEY<YJ 

260 A=U5RCM0VE,1,PMB,P,EX,EY,5J 

270 POKE 53278,244 

288 FX=FX+tFX>X)-{FX<XJ 

290 FY=FY+CFY>YJ-tFY<YJ 

388 A=USR{M0VE,2,PMB,P5,FK,FY,63 

318 POKE 53278,244 

328 IF FX<55 THEN FX=55 

330 IF FX>193 THEN FX=193 

340 IF FY<25 THEN FY=25 

350 IF FY>82 THEN FY=82 

368 6X=GX-CGX>X3+(GX<XJ 

370 GY=GY-CGY>Y3*CGV<Y> 

388 A=U5RfM0UE,3,PMB,P,GX,GY,5J 

398 POKE 53278,244 

488 IF PEEK (532523 =2 THEN 468 

418 IF PEEKC532683=4 THEN 498 

428 IF PEEK (532683 =2 THEN 460 

438 IF PEEK (532603 =8 THEN 460 

440 POKE 53278,244 

458 GOTO 158 

468 REM *#«*» 

478 POKE 53277,6:G8SUB 578 

488 POKE 281,B:CLR :GOTO 28 

490 REM *JHW# 

588 POKE 53278, 244:G05UB 528:G0T0 100 

510 END 

528 FOR 1=258 TO 6 STEP -2 

530 SOUND 0,1,18,18 

540 FOR Z=l TO 3: NEXT Z 

550 NEXT I 

560 RETURN 

578 FOR 1=255 TO 288 STEP -1 

588 SOUND 8, I, 18. 10: SOUND 1,1-28,18,18 

598 NEXT I 

688 RETURN 

618 FOR 1=1664 TO 1692: READ N:POKE I,N 

:NEXT I 

620 GRAPHICS 18 : SOUND 8,128,18,18 

638 POKE 53277, 0:POKE 16,64:P0KE 53774 

,64 

640 ? »6:? tt6:? tt6;" BUZZZ-ZAP!" 

658 A=USR (16643 :SETCOLOR 8,8,13:SOUN0 

1 192 18 7 

668 ?'tt6:? tt6j" OCT DAUID KARP" 

678 A=USR (16643 : SOU ND 3, 24 8,18. 7 

688 ? ate:? tt6;" QQ^ iBBBB" 

690 FOR C=l TO 3:S0UND C,0,O,0:NEXT C 

708 SOUND 8, 128, 10, 14: FOR 1=1 TO 38: IF 

PEEK (532793 =6 THEN RETURN 
718 SOUND 1,192, 18, 12:HEXT I 
728 SOUND 8, 224, 10, 12: FOR 1=1 TO 148:1 
F PEEK(532793=6 THEN RETURN 
730 SOUND 1,254, 18, 18: NEXT I 
740 FOR C=8 TO 3:S0UND C,0,8,e:NEXT C 
758 ? tt6:? tt6;" 8GARDS="; PEEK (281 
3 

760 IF PEEK (532793 <>6 THEN 768 
778 RETURN 

780 POKE 77,0: FOR 1=1 TO 4 
790 READ X1,Y1,X2,Y2 

888 IF Xl=99 THEN RESTORE 1888:G0T0 78 


810 PLOT Xl,Yl:DRAUTO X2,Y2 
820 NEXT I:SETCOLOR 1, INT (RND (83*163 ,1 
8 

838 B=B+l:? :? " BOARD It" 

JB 

848 RETURN 

858 DIM PMM)V£(1683 :(fi}UE=ADR(Pra«)V$3 :F 
OR 1=1 TO 180: READ N : P»tWU$ (I)=CHRS (N3 
:HEXT I 
868 PMBASE=1NT ( (PEEK (1453 +33 /43 »4 : POKE 

54279, PMBASE 
870 PMB=PI<fflA5E»256:P0KE 559, 46: POKE 53 
277,3 

888 DATA 184,162,8,232,142,18,212,142, 
23,288,142,22,288,224,255,248,3,76,131 
,6,200,192,255,248,3,76,131,6,96 
898 REM »*HHf* 

988 DATA 216,184,184,184,133,213,184,2 
4,105,2,133,286,104,133,285,184,133,20 
4,184,133,203,104,184,133,288 
910 DATA 184,184,133,209,104,184,24,10 
1,289,133,287,166,213,240,16,185,285,2 
4,105,128,133,205,165,286,105 
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928 DftTft 6,133,286,282,288,248,168,8,1 

62, 8, 196, 289, 144, 13, 196, 287, 176, 15, 132 

,212,138,168,177,283,164 

938 DATA 212,145,285,232,169,8,248,4,1 

69,8,145,285,288,192,128,288,224,166,2 

13,165,288,157,8,288,96 

948 REM *** 

958 DflTft 24,126,255,126,68 

968 DATA 24,68,126,182,126,68 

978 DATA 84,121,254,254,121,84 

988 REM *** 

998 DATA 28,4,16,4,16,4,5,15,5,15,35,1 

5,38,1,24,15 

1888 DATA 9,4,38,4,9,15,38,15,8,8,8,8, 

8,8,6,8 

1818 DATA 18,8,18,19,28,8,28,11,38,8,3 

fl 1.3 6 6 6 

1828 'data 28,18,28,13,1,18,17,18,28,1, 

28,7.23,18,38,18 

1838 DATA 7,7,7,12,7,12,32,12,32,12,32 

,7,32,7,7,7 

1848 DATA 1,6,28,6,38,6,38,6,28,12,38, 

12,8,8,8,8 

1858 DATA 1,18,18,1,38,18,38,18,18,18, 

18,18,38,1,38,18 

1868 DATA 8,9,16,4,9,18,16,16,32,18,26 

,16,28,4,33,9 

1878 DATA 28,4,28,15,6,18,33,18,9,15,3 

8,15,9,4.38,4 

1888 DATA 19,15,32,15,18,11,24,11,14,7 

,28,7,19,3,32,3 

1898 DATA 8,4,8,15,38,4,38,15,4,18,35, 

18,13,15,25,4 

1188 DATA 5,4,14,13,34,4,25,13,5,4,34, 

4,19,1,19,18 

1118 DATA 9,1,9,13,25,13,9,13,15,4,38, 

4,38,4,38,18 

1128 DATA 19,1,7,14,7,14,19,14,24,14,3 

9,14,32,6,24,14 



1138 DATA 11,1,13,3,17,7,24,14,5,14,38 

,14,24,14,24,18 

1148 DATA 1,4,29,4,5,9,38,9,11,15,23,1 

5,24,15,34,5 

1158 DATA 17,4,7,15,19,4,19,15,21,4,31 

,15,8,8,8,8 

1168 DATA 28,4,16,4,16,4,5,15,5,15.35, 

15,38,1,24,15 

1178 DATA 99,8,8,8 

1188 RETURN 



CHECKSUM DATA 
(See page 23) 

18 DATA 878,525,753,529,773,317,749,48 

8,476,975,631,287,988,522,384,9195 

168 DATA 84,919,642,178,68,749,319,584 

,976,989,298,334,999,12,374,7429 

318 DATA 318,24,312,19,44,2,15,314,342 

,499,518,581,522,329,719,4478 

468 DATA 786,248,543,795,827,37,181,58 

8,88,751,687,543,498,763,591,7742 

618 DATA 732,152,945,71,981,948,989,35 

6,924,832,881,282,797,988,378,9831 

768 DATA 862,614,341,663,169,924,81,24 

6,687,463,527,789,13,883,636,7658 

918 DATA 729,432,185.354,942,227,462,3 

66,263,728,84,595,368,18,537,6282 

1868 DATA 455,324,452,329,134,184,453, 

514,154,297,378,161,798,4617 
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BACKUP HARDWARE & SOFTWARE 



THE HAPPY^" 810 ENHANCEMENT KIT 
WITH WARP SPEED SOFTWARE 

BACK UP ANY ATARI'" DISK 
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CALL FOR SPECIAL LOW PRICE 



RIGHT-WRITE 

This device will allow you 
to write to side 2 of any 
disk. Install this box to your 
Atari™ 8-10 disk drive in 5 
minutes. Just plug in one 
cable — no cutting or sol- 
dering required. 

Push the button and a red 
led will light, allowing you 
to write a disk without 
notching out a hole in the 
disc. 

Easy plug-in installation 
instructions included. 

Fully tested and assembled. 



ONLY 



$2495 



PHONE ORDERS; 

(516) 467-1866 

PRODUCT INFO; 

(516) 588-6019 



THE 
TRANSFER PACK 

1) Disk file to tape 

2) Boot tape 
to disk file 

3) Tape to tape 

Very powerful and 
low priced. 

We havea multi-stage cas- 
sette Transfer Program to 
theTransferPackThispro- 
gram will do most multi- 
stage tapes. It will transfer 
them to disk files. 



ALL 4 
FOR ONLY 



$2495 



Add $5 for Shipping & Handling. 



NOW AVAILABLE 
THE ULTIMATE BOOK 

On copyguarding. Master code/ 
cracker reveals all. Hardware 
and software tricks. Informative 
book and disk with examples 
and programs. 



ALL FOR 



$2495 



NEW PRODUCT 

The Downloader 

for the Atari 832 Modem 

At last a program that will allow 
you to download Binary and BASIC 
files with the new 835 Modem. No 
interface needed. You can save 
these files to disk, printer or cas- 
sette. But, BEST OF ALL, you 
will be able to download games from 
bulletin boards with our software 
and the 835 Modem. $54.95 plus 
$2.50 for shipping. 



GARDNER COMPUTING COMPANY 

P.O. BOX 388, HOLBROOK, N.Y. 11741 
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We accept COD orders, 
money orders and ship with- 
in 24 hours 

(Personal checks will have 
to clear belore shipping ) 
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Omnitrend's Universe 
by Thomas R. Carbone 
and William G.M. Leslie III 
Omnitrend Software 
P.O. Box 3 

West Simsbury, CT 06092 
(203) 658-6917 
$89.95 



by Ray Berube 



I first saw Omnitrend's Universe color adver- 
tisement in the pages of ANALOG. The test of the 
ad promised that "using high-resolution graphics, 
and more than 30 custom displays — distributed on 
four disks — Omnitrend's Universe allows you to 
experience the life of a starship captain . . ." As an 
avid role-playing gamer and Traveler fan, 1 was 
immediately intrigued. So, when asked if 1 could 
find the time to review Universe, 1 replied that I 
would make the time! Little did I know how much 
time would eventually be invested in reviewing this 
game. 

Before plunging into the log of my five-year jour- 
ney through the Universe, I'd like to call attention 
to some "cosmetic" features of the game, and then 
briefly outline the idea behind Omnitrend's Uni- 
verse. 

The first thing that sells a game is usually the price 
or the reputation of its designers. Here, Omnitrend 
takes a big gamble. The designers (and the first page 
of the manual lists Mr. Carbone, Mr. Leslie, and a 
host of others) are not familiar to me. Then again, 
neither is Omnitrend Software. Names like Infocom, 
Scott Adams, Adventure International Sierra On- 
Line, Activision, Carol Shaw, Larry Kaplan, Epyx and 
others ring a bell — and sometimes a gong — with 
adventure enthusiasts. So adding a hefty price tag and 
an unknown group of designers to a new product is 
taking a gamble. Omnitrend felt the game was worth 
the gamble, and they were right. Universe should 
help to establish Omnitrend and its designers. It will 
admit them to that privileged club of quality game 
producers. 

One of the most important cosmetic aspects of a 
game is its packaging. Infocom recognized that early 
on, and Omnitrend has followed their example. 
Universe is beautifully presented in a thickly 
padded, self-standing binder. This binder contains 
the game's instructions, a manual of operations, a 
disk sleeve for each disk and ample room to include 
any documentation the player decides to add (and 
add it you will!). The folder is clearly divided and 
organized to facilitate referencing and play. The 
paper is a high quality, glossy magazine stock, and 
typesetting is clear and easy to read. I used looseleaf 
reinforcements on the pages to prevent tearing, and 
with all the use the pages are put to during play, I 



recommend it. Fine, you say, but nice packaging 
doesn't make a game. Agreed, but in this case it 
enhances the game's playability, so it is more than 
just a pretty box. 

A word about the cost of Universe and then on to 
its playability. The game lists for $89.95, but some 
incidental expenses (which are suggested in the man- 
ual b'lt considered necessary by this reviewer) will 
push the cost to over $ 100.00 for the game. I bought 
the reinforcements and a package of looseleaf filler, 
and suggest you do the same. In addition, the manual 
suggests that the player copy the disks to protect them 
from damage. I say it's necessary! You will need six 
blank disks: four to copy the game disks, a player 
disk you'll have to create and, finally, another disk to 
copy the player disk (more on why later). All this 
copying is made much less tedious by using Brian 
Moriarty's Black Rabbit 2 (ANALOG Issue 9 or 
the improved version in the ANALOG Compen- 
dium). The progress of the game relies on menu 
selections, and disk swapping is constant. You'll cry 
if you don't copy a game disk and — while inserting 
it for the umpteenth time — you damage it. Your 
game is now worthless, so please make the copies! 




Universe. 

The premise of Universe is very simple. You are 
part of a fringe star group hundreds of light years 
from Earth. Your society depends on regular assist- 
ance packages from Earth which arrive via a one-way 
hyperspace booster system. Suddenly these packages 
stop arriving. Chaos and decline threaten your civili- 
zation, but hope springs out of confusion. It is 
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believed a hyperspace booster of similar design to 
those which allowed contact with Earth has surfaced 
in your star sector. Find the booster and you'll save 
your civilization. 

Sounds easy, but wait! No one knows where the 
booster is, and as you begin the game, you don't even 
have a space ship. So you're a long way from 
grabbing that booster and saving civilization. This is 
where Universe begins and, right from its opening 
graphics, it grabs you. 

The game allows you to enter into a mortgage and 
buy a ship and the barest minimum to outfit it. But 
star travel is expensive! In order to fund your search 
for the booster and keep your ship flying, you'll have 
to engage in mining or passenger transport or trading 
or contract work or even pirating innocent vessels. It 
is here in this realm of real experience that Universe 
overwhelms you. It is filled with detail and depth of 
experience. I can't imagine anyone playing Universe 
to the point of completely exploring all of its aspects! 
You can find the booster, but . . . that's just a lure to 
get you into becoming a starship captain. Once you 
own your ship, the game is exploration, gambling, 
warfare, experiencing a Universe. 

How does Omnitrend achieve this wonderful feat? 
By a very structured and logical set of menus which 
guide the player but present new possibilities at each 
selection. What is a menu? Well, as a main frame 
business programmer, I'm very familiar with menu- 
driven data base systems, but it's not a common 
feature in adventures for the computer. So I'm going 
to break down the organization of Universe by delv- 
ing into its menus. 

Included in the appendices of Universe is a skele- 
tal flowchart of how the game's logic proceeds. It is 
not very detailed but can be used to understand the 
menus. Most computer gamers are familiar with 
simple menus usually found after the title screen. 
Some examples are: select joystick or paddle; select 
one or two players; press start for a new game or 
option to restore a saved game. In Universe this 
concept is carried further. For example, the Flight 
Menu consists of nine options and many of these lead 
to further menus and even more options. Docking 
Control leads to Parts Removal, Purchase Parts and 
Place Parts. Sounds a little overwhelming? Well, at 
first glance it is. To play Universe a thorough read- 
ing of the manual and careful pre-play planning is a 
necessity. Now on to play action. 

Play begins by booting the Construction disk, and 
after some impressive titles and opening music, the 
first block of text appears. This early text sequence 
doesn't allow for any real decisions from the player. 
You meet a bank loan officer, mortgage your ship, 
and are sent to the shipyards to choose a starship. 
From this point on, you are in control of your des- 
tiny! On arriving at the shipyards you encounter the 
first menu, a list often ship designs. Each design can 



be called up and examined in detail. The screen, 
through a graphics window, presents a three- 
dimensional view, an overview and a side view of the 
design while a text area provides statistics such as 
cost, size, visibility, integrity and specific features. 
It's a good idea to study each ship design carefully. 
Some are more suited to mining or pirating that\ 
others and a poor choice can spell disaster later in the 
game. After selecting a design, the game requires you 
to create a player disk. This is a tedious task com- 
prised of disk swapping that lasts for more than ten 
minutes! As the manual suggests, be patient. There's 
a lot of data being transferred. As soon as you com- 
plete your player disk, copy it! Otherwise, should 
you meet with an untimely accident like death later 
on (in the game, I mean), you'll have to re-create 
your player disk. With a copy you can pick right 
back up with the next section; Flight One. 

The Flight One disk in conjunction with the Flight 
Two disk contains all of the menus needed for space 
operations. You select locations for equipment instal- 
lation, hire crew members, buy fuel, weapons, addi- 
tional equipment such as scanners, rescue pods, etc. 
You must become familiar with the operation of 
every part of your ship. In order to enter hyperspace, 
you must understand how your drive works (and 
there are several drives to choose from). Here is 
where the menus allow you total access to every part 
of your ship. You can select to operate or study 
drives, weapons, scanners, mining systems, compu- 
ter controls, orbital shuttle functions and more — 
from just ONE flight menu! The ship is yours to 
exploit fully. 

From passenger transfers to orbital shuttle repairs, 
the Starport menu covers just about any activity that 
might take place on reaching a distant star system. I 
can't begin to delve fully into each area of these 
menus in this limited review. In fact, I've played 
Universe steadily, six to eight hours a day, for over a 
week to do this review, and I'm still discovering new 
elements of the game! The Starport menu allows you 
to buy, sell and trade goods and services. It contains 
the activities of customs clearance, transfer of pas- 
sengers, even repair and fueling of your shuttle. Out- 
side of some unsavory activities omitted, it covers all 
the ground needed for exciting starport intrigue. 

To conclude. Universe is a blend of text 
and graphics adventure. Though in places its pace is 
slower than most shoot-em-ups or text adventures, 
the richness of detail is unmatched. And when you're 
in a fire fight, nothing happens slowly. 

If you buy Universe, you'll find months of play- 
ing pleasure ahead of you. Even though its price tag is 
a bit hefty, you get your money's worth and more. 
Let's face it, if we can shell out forty bucks for 
Dig/Dug and be bored with it after a week, we can 
surely invest $89.95 or so for a game we'll still be 
playing throughout the year. D 
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16K Cassette or 24K Disk 



by Kyle Peacock with Tom Hudson 

The year is 2284. The "Robotron Incident" of 
2084 has long been forgotten, and the field of genetic 
engineering has led to the fabrication of synthetic 
humans. Each fabricated unit is genetically engi- 
neered to perform a specific task to perfection. 

Fifty years later, through a unanimous vote of the 
United Nations, these "Syntrons" have been in- 
stalled into every top political position in the world. 
Each represents the opinion of the particular govern- 
ment they were assigned. The fate of continents rests 
in the hands of the Syntrons. 

Now the year is 2369. Long-term studies of the 
Syntrons' behavioral patterns yield strange results. 
A genetically invulnerable bacteria has infected the 
species. The bacteria preys on the cerebral nerves 
responsible for all higher order brain processes, 
making the individual deranged and quite unstable. 



This bacteria has begun to trickle down to infect 
the Syntrons' counterpart: man. Soon, mankind will 
teeter on the very brink of insanity and demise, 
unless a means can be found to halt the plague of 
2369: Bacterion! 

Loading instructions. 

Before typing anything, look at the listings accom- 
panying this article. 

Listing 1 is the BASIC data and data check 
ing routine. This listing is used to create bo: 
cassette and disk versions of Bacterion! 
data statements are listed in hexadecimal (b 
16), so the program will fit in 16K casseti 
systems. This makes typing more difficult, but 
if you want to play the game . . . 

Listing 2 is the assembly language source 
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New Low Price 
$149.95 
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Id Dial 

Direct Connect to Phone Lin 

No Atari 850™ Interface 
Module Needed 

Includes AC Adapter/ 

Power Supply 

Free ConnpuServe DemoPak™ 

1 year warranty 

Connects to Joystick Port 

Works on ALL Atari Computers 






SOPHISTICATED 
SMARTTERMINAL 
SOFTWARE ON CARTRIDGE 

FEATURES: 

Supports XMODEM Protocol 

ASCII/ATASCII Translation 

Allows Transfer of Files 

Larger than Memory 

Up load /Down load of Text 

and Progranns 

100% Machine Language 





Multiple Buffers 
Off-Line Editing 
Variable Baud Rate 
Parity Options 
Full/Half Duplex 



Only 
$99.95 



Replaces Atari 850'*' Interface Module 

Compatible with all software 

3 foot cable with Centronics plug 
(compatible with Epson, NEC, Prowriter, etc.) 

2 year warranty 

Connects to serial bus on computer 

Daisy chains with other Atari peripherals 

Works on ALL Atari Computers 



Atari 850. THE SOURCE, and CompuServe DemoPak are trademarks 
of Atari, Inc. Readers Diqest and CompuServe. 
1 M icrobits is not alfilialed wilti Atari, Readers Digest or CompuServe 
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code for Bacterion! You do not have to type this 
Usting to play the game! It is included for those 
readers interested in assembly language. 

Follow the instructions below to make either a 
cassette or disk version of Bacterion! 

Cassette instructions. 

1. Type Listing 1 into your computer using 
the BASIC cartridge, and verify your typing 
with C:CHECK (see page 23). 

2. Type RUN and press RETURN. The pro- 
gram will begin and ask: 

MAKE CASSETTE (0) OR DISK (1)? 

Type and press RETURN. The program will 
begin checking the DATA statements, printing 
the line number of each as it goes. It will alert 
you if it finds any problems. Fix any incorrect 
lines and re-RUN the program, if necessary, 
until all errors are eliminated. 

3. When all DATA lines are correct, the 
computer will beep twice and prompt you to 
"'READY CASSETTE AND PRESS RE- 
TURN." Insert a blank cassette in your record- 
er, press the RECORD and PLAY buttons 
simultaneously and hit RETURN. The message 
"WRITING FILE" will appear, and the pro- 
gram will create a machine language boot tape 
version of Bacterion!, printing each DATA 
line number as it goes. When the READY 
prompt appears, the game is recorded and ready 
to play. CSAVE the BASIC program onto a 
separate tape before continuing. 

4. To play the game, rewind the tape created 
by the BASIC program to the beginning. Turn 
your computer OFF and remove all cartridges. 
Press the PLAY button on your recorder and 
turn ON your computer while holding down 
the START key. If you have a 600 or 800XL 
computer, you must hold the START and 
OPTION keys when you turn on the power. 
The computer will "beep" once. Hit the 
RETURN key and Bacterion! will load and run 
automatically. 

Disk instructions. 

1. Type Listing 1 into your computer, using 
the BASIC cartridge, and verify your typing 
with D:CHECK2 (see page 23). 

2. Type RUN and press RETURN. The pro- 
gram will ask: 

MAKE CASSETTE (0) OR DISK (1)? 

Type 1 and press RETURN. The program will 
begin checking the DATA lines, printing the line 
number of each statement as it goes. It will alert 
you if it finds any problems. Fix incorrect lines 
and re-RUN the program, if necessary, until all 
errors are eliminated. 



3. When all DATA lines are correct, you will 
be prompted to "INSERT DISK WITH DOS, 
PRESS RETURN." Put a disk containing DOS 
2.0S into drive #1 and press RETURN. The 
message "WRITING FILE" will appear, and the 
program will create an AUTORUN.SYS file on 
the disk, displaying each DATA line number as 
it goes. When the READY prompt appears, the 
game is ready to play. Be sure the BASIC pro- 
gram is SAVEd before continuing. 

4. To play the game, insert the disk containing 
the AUTORUN.SYS file into drive #1. Turn 
your computer OFF, remove all cartridges and 
turn the computer back ON. Bacterion! will 
load and run automatically. 

Playing the game. 
Bacterion! is a game for one or two players. In the 
two-player mode, both play simultaneously. In this 
mode, the game is more cooperative than competi- 
tive. You must prevent the six (count 'em, six!) 
different strains of Bacterion from removing the ten 
cerebral cells from the host Syntron. A cell is 
inoperative when it is completely removed from the 
screen. 

(continued on page 39) 
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Introducing 

THE INVOICER 

By 
MiccaSoft 

Don't pay $200 or more for a comparable package. THE 
INVOICER is designed for the small business ttiat is on 
its way up. It is for thie business person who wants a 
faster and easier way of invoicing orders at a reasonable 
cost. It is so easy to use that anyone can print an 
invoice. 

THE INVOICER uses preprinted invoices. It includes 
features such as optional letterhead formatting, auto- 
feeding, automatic tax calculation, automatic totaling 
and summary totals. 

THE INVOICER is available for the Commodore, ATARI, 
PC and PC Jr. The program requires 48K and a Disk 
Drive. 



$39.95 



Dealer Inquiries Welcome 
VISA, MC, Check or Money Order 
Please specify type of computer. 
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MiccaSoft 

406 Windsor 

New Braunfels, TX 78130 

(512)629-4341 
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ATARI 800XL Call 

Atari 1 050 Disk Drive Call 

Atari 1010 Recorder 77.00 

Atari! 027 Printer Call 

Atari 850 Interface Call 

MOSAIC 

64K Ram/400 149.00 

64K Ram + Cable Kit/400/800 169.00 

48K Ram Kit 94.00 

16/32 Expander 64.95 

32K Ram 77.95 

Mosaic Adaptor 49.95 

Memory Expansion for Atari 600XL . . Call 



DISK DRIVES 

Percom 

Trak Call 

Rana For 

Indus Gt . . Prices 



NEW 

RS232 Modem 
Adaptor (Through serial 
port) 39.95 

Koala Touch Tablet 
Cart or Disk... 69.95 

MONITORS 

We carry a full line 
of AMDEK and USI 
Monitors. 



YOUR LIFE AND YOUR MIND 
NEW -THE STIMUTECH SUBLIMINAL PROGRAM 
With the Expando-Vision Interface the Atari 
Computerusercan nowworkon improving hisor 
her personal environment during normal television 
view/ing w/ith a proven psychological technique 
that was banned by the F.C.C. 
Buy the Expando-Vision Interface for $99 and get 
the Rom Cart of your choice for Free!!! 

Rom Carts are available for; 
Weight Control Drinking Control 

Study Habits Smoking Control 

Stress Control Career Success 

Sexual Confidence 
Additional Rom Carts $29.95 eacfi 



3RD Party Printer Interfaces 

Interfast I 139.00 

Apeface w/cable included 69.95 

PRINTERS 

SUPER SPECIAL - Prowriter Package 

with Apeface or Interfast I Call 

Axiom AT-100 229.00 

Axiom AT-550 329.00 



ATARI 

Programming 2 & 3 - T . . . . 23.95 
Conversational Lang. - T . . . 44.95 
Music Composer - Cart . . . 32.95 
My First Alptiabet - D .... 26.95 

Touch Typing - T 19.95 

Home Filing Mgr. - D 37.95 

Mailing List- T 19.95 

Caverns of Mars - D 28.95 

Computer Ctiess - Carl . . . 26.95 
Missile Command - Cart . . . 26,95 
Super Breal^oul - Cart .... 26,95 

Star Raiders - Cart 32 95 

Assemtjiy Editor - Carl .... 46.95 

Basic -Cart 41.95 

Macroassembler - D 67.95 

Pilot (Home PIsg.) - Cart . . . 58,95 
Invitation to Program IT... 19,95 

Speed Reading - T 55,95 

Basl<elball - Carl 26,95 

Graptl-it - T 15,95 

Juggles House - D/T 22,95 

Pilot (Educator) - Can .... 97.95 

Video Easel - Cart 26,95 

Defender - Can 32,95 

Galaxian-Cart 32.95 

Qix - Cart 32,95 

Dig Dug - Can 32,95 

ET - Cart 37,95 

Timewise - D 23,95 

Alariwriter - Cart 74,95 

Donkey Kong - Cart 37,95 

Ms, Pac-Man - Can 39,95 

Tennis -Cart 35,95 

Eastern Front - Cart 32,95 

Donl(ey Kong Jr - Cart . . . 39,95 

Pengo - Cart 35,95 

Logo - Cart 79,95 

Robitron - Cart 35,95 

Pole Position - Cart 39,95 

Microsoft Basic II - C 67,95 

Paint - D 33,95 

Caverns of Mars - Cart .... 32,95 

JousI - Cart 39,95 

Visicalc- D 159,95 

THORN 

vyar Games - Cart 27,95 

Hocl<ey - Cart 27 96 

Soccer - Cart 30,95 

Submarine 

Commander -Cart . . . 30,95 

SIERRA ON-LINE 

Homev^'ord - D Call 

Dark Crystal - D 27 95 

Frogger - D/T 23 95 

Ouesl For Tires - D .... 23 95 

Ultima I - D 23 95 

Ultima II - D 41 94 

Wizard/Princess - D .... 22 95 



SPINNAKER 

Up For Grabs - Cart 27,95 

Cosmic Life - Can 23,95 

Pacemaker- Can/Disk . . . .23,95 

Alphabet Zoo - Can 23,95 

Fraction Fever -Cart 23,95 

Kids on Keys - Cart 23,95 

Delta Drawing - Cart 27 95 

Story Machine- Disk 23,95 

Rhymes & Riddles - D .... 20,95 

Amazing Things - D 27,95 

Hey Diddle Diddle - D .... 20,95 
SnooperTroops1or2-D ..30,95 

Trains - D 27.95 

Aerobics - D 30,95 

SIRIUS 

Bandits - D 23,95 

Way Out - D 27,95 

Repton - D 27,95 

Twerps - D 23,95 

Blade of Blackpoole - D . . 27,95 

Type Attack -D 27,95 

Beer Run - D 23,95 

Critical Mass - D 27,95 

Wavy Navy - D 23,95 

GAMESTAR 

Baja Buggies -D/T 22,95 

Starleague 

Baseball - D/T 22,95 

Starbowl Football D/T . . . 22,95 



SEGA 

Buck Rogers -Cart .... 27,95 

Star Trek- Cart 27 95 

Congo Bongo- Cart .... 27 95 

Tac Scan- Can 27,95 

EPYX 

Gateway To Apshai - Cart 27,95 

Pilstop - Cart 27,95 

Lunar Outpost - Cart 27,95 

Swat Rescue - Cart 27.95 

Silicon Warrior -Can ....27,95 
Fun With Music -Cart . . . .27,95 

Jumpman Jr - Cart 27,95 

Dragonriders of Pern - D/C 27,95 
Temple of Apshai - D/C . . . 27,95 
Helllire Warrior -D/C ....20,95 
Fun With Art -Can 27 95 

INFOCOM 

Deadline - D 34 95 

Witness- D 34,95 

Zork I, II, III -D 27,95 

Starcross - D 27.95 

Planetfall - D 34,95 

Suspended • D 34,95 

Enchanter - D 34,95 

Infidel- D 34 95 

Hundreds of items 
available for tfie ATAR I 
. . . please call. 



7495 
74,95 
64,95 



LJK 

Letter Perfect - D . 
Data Perfect - D . 
Spell Perfect - D . 

BRODERBUND 



AE - D 23,95 

Arcade Machine - D .... 41,95 

Bank SI, Writer - D 49 95 

Lode Runner -D 23,95 

Drol - D 23,95 

Spare Change - D 23 95 

Choplifter- D 23,95 

DATA SOFT 

Money Wizard - D 49,95 

Letter Wizard - D 49,95 



Spell Wizard - D 



34,95 



Genesis - D/T 20,95 



Heathcliff - D/T. 
Pooyan - D/T . . 
Zaxxon - D/T . . 
Micropainter - D 



2095 
20.95 
27 95 
23,95 



SYNAPSE 

Blue Max - D/T 23,95 

Dimension X - D/T 23,95 



Drelbs - D/T 

Encounter- D/T . . . . 
Necromancer - D/T . . 
Quasimoto - D/T . . . . 
Rainbow Walker - D/T . 
Shamus Case II - D/T . 

Zeppelin- D/T 

N,Y,C, -on 



23.95 
23,95 
23 95 
23 95 
2395 
23,95 
23,95 
. 23.95 



€,ompu t(flbLLitu 
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To Order Call Toll Free 



For Technical Info, Order 
Inquiries, or for Wise. Orders • 



800-558-0003 414-351-2007 

NO SURCHARGE FOR MASTERCARD OR VISA 



COMPUTABILITY 

P.O. Box 17882 

Milwaukee, Wl 53217 



(MottarCordj 



ORDER LINES OPEN 
Mon-Fri 11 AM - 7 PM CST 
Sat 12 PM- 5 PM CST 



ORDERING INFORMATION For fast delivery send cashier's check, money order or direct bank transfers. 
Personal and company checks allow 2 weeks to clear. Charges for COD are S3. 00, School Purchase 
Orders welcome. In CONTINENTAL USA, include S3.00 shipping per software order. Include3% shipping 
on all Hardware orders, minimum S3, 00. Mastercard & Visa please include card ^ and expiration date. Wl 
residents please add 5% sales tax. HI, AK, FPO. APO, Canadian orders - add 5% shipping, minimum S5.00. 
All other foreign orders, please add 15% shipping, minimum Si 0.00, AM goods are new and include factory 
warranty. Due to our low prices, all sales are final. All defective returns must have a return authorization 
number. PI ease call 414-351-2007 to obtain an RAi^ or your return will NOT be accepted for replacement 
or repair. Prices and availability are subject lo change without notice. 



FIRST STAR 

Bristles- D/T 20.95 

Flip Flop- D/T 20,95 

Astro Chase - D 20.95 

Boulder Dash - D/T .... 20,95 

STRATEGIC SIMULATIONS 

Carrier Force - D 41,95 

Combat Leader - D/T . . . 27.95 
Battle For Normandy 

-D-'T 27,95 

Eagles - D.'T 27,95 

PARKER BROS. 

Astrochase- Cart 34 95 

Frogger -Cart 34.95 

O'Bert • Cart 34 95 

Popeye- Cart 34.95 

MISCELLANEOUS 

Caslle-Wolfenstein - D .. 20 95 

Home Accountant - D . . . 52 95 

Master Type - D/Cart . . . 27,95 

Spelunker - D 27 95 

Flight Simulator II - D ... 37.95 

Zombies - D/T 23 95 

Mr, Robot - D 23.95 

River Raid- Cart 31,95 

Diskey - D 34,95 

Chatterbee - D 27.95 

Rally Speedway - Cart ... 34 95 

Ultima 111 - D 41, 95 

Miner 2049'er- Cart .... 34.95 

Scraper Caper -Cart . . . 34.95 

Basic XL - Cart 74,95 

Monkey Wrench M - Cart . 49,95 

Omnimon 82.95 

Scraper Caper - Cart . . . 34.95 

BOOKS 

Compute's First 

Bk/Games 12.95 

Inside Atari DOS 19.95 

Mapping the Atari 14 95 

Machine Language/ 

Beginners 14.95 

Your Atari Computer . . . 16,95 

The Atari Assembler .... 12.95 

Visicalc Book-Atari .... 14.95 

ACCESSORIES 

WICO Joystick Call 

Flip 'n' File Trunks 20,95 

Flip 'n" File Cart 20 95 

Joysensor 24.95 

Elephant Disks 

(Box of 10) 20,00 

WICOTrakball 37,95 

KRAFT Joystick 15.95 

D - Disk T - Cassette 

Cart - Cartridge , 
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As a member of BARF (Biological Armament 
Restriction Force), you are equipped with a minia- 
turized GEV (Genetic Extermination Vehicle) to aid 
you in your mission. The vehicle emits high- 
frequency photons from its nose, capable of vapori- 
zing the Bacterion, while leaving brain tissue and 
other GEV's undamaged. 




Bacterion! 

Control over your GEV is accomplished through 
the joystick. A two-player game will require as many 
joysticks. Pushing up will cause your GEV to move 
forward. Moving the stick left or right will cause the 
vehicle to rotate in the respective direction. Pushing 
the trigger fires the photonic bursts. Any one player 
can have up to four high-energy photons on the 
screen at once. Holding down the trigger fires all 
available photons in rapid succession. Should your 
GEV be destroyed by either running into your 
opponent or being skragged by a Bacterion, you 
must wait several seconds for another GEV to be 
injected into the host. Parking or driving your GEV 
over a brain cell gives it unsure traction, which may 
cause the vehicle to rotate randomly. Each GEV is 
internally powered, so there is an unlimited supply 
of ammunition. 

Initially, each Syntron has a unique brain pattern. 
You may select which of the three top political 
figures you wish to put "under the knife." Each 
individual has a total often cerebral cells. Some cells 
may be harder to visualize, since there may be two or 
more on top of one another. 

The SELECT button will choose between a one- 
or two-player game. The OPTION button will 
choose which political leader you will operate on. 
Examination of the speed at which the colors change 
in the word "BACTERION!" on the title screen 
dictate the brain pattern. The Prime Minister of 
England, President of the U.S. S.R. and the President 
of the U.S. are your three available candidates. The 
START button will begin the game. Pausing or 
examination of scores is accomplished by pressing 



the space bar. Pressing the space bar a second time 
will resume the life-or-death struggle. Each of the six 
attacking strains are worth from 10 to 60 points, 
respectively. 

Additional credits. 

My special thanks goes to Tom Hudson for his 
assistance in Bacterion! Through the use of his 
Graphics 7+ handler presented in issue #11, and some 
custom-made shape-drawing routines, we've put 
together the best (as in #1) two-player public domain 
assembly language game ever! If you agree or disagree, 
I'd like to hear it. Drop me a line, care of Kyle 
Peacock here at the editorial offices of ANALOG. 



BASIC Listing. 

10 REM *** BACTERION *** 

29 TRftP 28:? "MaKE CASSETTE CQJ ^ OR DI 
5K tl3";:INPUT OSiCIF D5K>1 THEN 20 

30 TRftP 4O8d0:DATA 6,1,2,3,4,5,6,7,8,9 
,0,0,0,0,8^8,0,10,11,12,13,14,15 

40 DIM DflTSC913,HEKC223 IFOR H=8 TO 22; 

READ M:HEHCX3=H:NEKT K : LIME=990 : RESTOR 

E leOOlTRAP 120:? "CHECKING DATA" 

50 LINE=LINE+10:? "LINE :"; LINE : READ DA 

T5:IF LENtDATS3<>90 THEN 228 

68 DATLIN=PEEKC1833+PEEK1184J*256:IF D 

ATLINOLINE THEN ? "LINE ";LINE;" MISS 

ING!":EHD 

78 FOR H=l TO QS STEP 2 : D1=ASC CDAIS CK, 

KJJ-48:D2=;ASC£DATS(X + 1,H + 1)3-48:BYTE = H 

EK(D1J*16+HEXCD23 

80 IF PAS5=2 THEN PUT 81,BYTE:NEHT H:R 

EAD CHKSUM:GOTO 50 

98 TOTAL=TOTAL+BYTE:IF T0TAL>999 THEN 

TOTflL=TOTAL-lO80 

100 NEXT X:HEAD CHK5UM:IF TOTAL=CHKSUM 

THEN 50 
110 GOTO 220 

120 IF PEEKC1953 05 THEN 228 
138 IF PA55=0 THEN 170 
140 IF NOT D5K THEN 160 
150 PUT ttl,224:PUT «1,2:PUT »1,225:PUT 

»1,2:PUT «1,0:PUT «l,4e;CL05E «1:END 
160 FOR X=l TO 2:PUT ai,8:NEHT X:CLOSE 

ttl:END 
178 IF NOT D5K THEN 288 
188 ? "INSERT DISK WITH DOS, PRESS RET 
URN"; :DIM INSC13:INPUT INS:OPEN ttl,8,0 
,"D:AUTORUN.SYS" 
190 PUT tti,255;PUT ai,255:PUT ttl,0:PUT 

«1,40:PUT «1,85:PUT ttl,59:G0T0 210 
200 ? "READY CASSETTE AND PRESS RETURN 
";;OPEN »1,8,128,"C:" :RESTORE 230:FOR 
X=l TO 48:READ N:PUT «1,N:NEXT X 
218 ? :? "WRITING FILE":PASS=2:LINE=99 
0: RESTORE 1880: TRAP 128: GOTO 58 
220 ? "BAD DATA: LINE ";LINE:END 
230 DATA 0,39,216,39,255,39,169,8,141, 
47,2,169,68,141,2,211,169,8,141,231,2, 
133,14,169,56,141,232,2 

240 DATA 133,15,169,0,133,10,169,40,13 
3,11,24,96 

1000 DATA 2865E4A9228D2F02A92SS581A9e0 
8580A9088583A90e8582A9e8B1809182C8DOF9 
E681E683A581C940D0EFfl90B,831 
1010 DATA 85eD8583S5eBA91285eC8582858A 
4C120BA200A90E9D081FCAD0FAA9788DeeiF8D 
811FA9F08De21FA94E8Oe31F,796 
1028 DATA 8D6B1FA9288DS51FA9108D841FA9 
308D6DlFA98e8D6ClFA9418DC8iFA98E8DC71F 
A91F8DCAlFA9e08DC91FA93E,396 
1830 DATA 8D2F02A9808O87D4A9038D1DD0A9 
108D6F02A900AA9D88849D0e95CAD8F7A282A9 
0095 A9 95AC95AFCA10F7A91O, 369 
1040 DATA 8588A92e8581A20OA5889D351BA5 
819DF51BA900A02791888318FBE8EeC8F810A5 
801869288588A58169808581,840 



PAGE 40 



ANALOG COMPUTING 



ISSUE 20 



1050 IXJTfi 4CBCe8Aea4BC?De9A28986B76988 

0995E835D4B99ES99&C91C9!>B51Cfl98895CeC8 

Cfll0E8fl20O86fl88E7DlO8E7E, 608 

1868 DftTft lD204289O5ft5F0e4E82042e9fl9ei 

8D451E8l>lFlE8l>201E8D211Eft285BD71099OfiB 

13:Bl>6B899Ofl413BD77099DD9,837 

1870 DATA 8ACAieEB4CBC09A9009D691D9DlD 

1EA9019O461E9D5A1EBD69O99D311E9D2D1DBD 

67099D7D1DA9809D911D692C,163 

1080 DATA C38C84342C241C140C0D8B098705 

8346413C3?322&68eA14445O5C3E4A56624450 

5C4F4F4F4F4955435B3D614F,598 

1890 DATA 47574F4F4F4F47574F5D5D5D6060 

60606363634C52585E626266666A6fl565A5A5E 

5E5E5E626266A201869ECA8A, 955 

1100 DATA 8D85D28D07D28D08D29De8039D00 

069D00078DlED0CAD0FlA2e4AD451E9DlDlE20 

EB9A9D7DlDAD0AD2ie04A915,391 

1118 DATA D002A9E49D911D2OF40AA9008D0F 

0B85B69D6 91D9DDD1C9DCD1D9DF11C9D551DAD 

FD0AC9D8B057A9aA20FDOAA8,809 

1128 DATA 8E10eBBD551DFe0698DDDOlCFB3B 

E8E8e5D0F0fiE1088B9B51CC9C2B02CA98220FD 

0A8Cil0BA8B9E10A9D551DB9,245 

1138 DATA DF0AAC118B1879B51C9DB91DB9D4 

8818692C9DA51D989DDDlC4C810AAE10eBCE8F 

8BDeA9A4A5C89828FD8AA8B9,236 

1148 DATA 7DlD9DA51DB9911D9DB91DCAE8ei 

F8034CDCe9A92885B5AE451EBDD88A85B9C98S 

988638E9039DD88AA28CA9FF, 684 

1158 DATA 9D6ElE95D99DBAlC95C5CAE8e4D0 

FlA283ADeAD229F6898A9DC8e2ADeaD229F81D 

E70ft9DC482CA18E8A9e885BC J 311 

1168 DATA 85BE856D85BF859E6880ee80O00O 

0015240 AF58CeC0A8A0C88888AA96428FD0fll8 

694B6OA91828FD8A9D2D1D60, 732 

1170 DATA 8D8E8BAD0ftD2CD0E0B98854A4A4C 

e30B68008ee880A9888D81D28DO3D22OE30E28 

430FA98i85A8859EA986A28C, 377 

1180 DATA A8F82e5CE4A987A28DA8562e5CE4 

A9C88D0ED420BA0FA5A3C9O1D0F7E6A3203E88 

A5A3C962D0ClADFCe2C921De,328 

1190 DATA 37AD0FD22904FO302043OFA5B748 

A90A85B7A90185A8859E8DFC0220BAeFADFC02 

C921DeF9AD0FD22904F8F96e, 687 

1200 DATA 85B7A90085A8859E8DFCe2C6B318 

84A909S5B3A6B3B5C8D012B5E88588BDC91C85 

89A901858AA98e28481AA989,270 

1210 DATA 85B2A6B2B5C0F0e32O181AC6B2ie 

F3A9e48DB70DAEB70DBDCDlDF8533O2E89809D 

CD1DA902858ABD7D1D38E92C,616 

1220 DATA 9DF51D8588BD911D38E91CC9C8Be 

2E9De91E8589BDCDlD297F2e481A4C200CDEEl 

1D101EBDF51D8588BDO91E85, 525 

1230 DATA 89A980858ABDCD1D297F28481AAE 

B70DA9009DCD1DCE878DADB78DC901D89BA211 

B5C0F833B5E88588BDC91C85, 157 

1248 DATA 89A98095C8858A8E6E182e4219AE 

6E18B5D495E88588BDB51C9DC91C8589A9e385 

8A8E6Eie204219AE6E18CAE8,423 

1250 DATA 09D8C4A5B7181320BA0FA901859E 

8514A613E8E413DeFC4C12eBA5B6C963F0034C 

4B0B2843eFEE451EAD451EC9, 175 

1268 DATA e79851ADeftD229F88DC8e2A90185 

9E85A820Bft0FA5B748A9OA85B78514A613E8E4 

13D8FC6885B7A90885A8859E,792 

1270 DATA 8DFC0285A085A1859FA285BDAB13 

C9e29003DEAB13BDA413C908988638E9O49DA4 

13CA18E6A9018D451E8D1F1E,798 

1280 DATA 8D201E8D211E20BC094C4BOBD8A5 

A88AAABD72i08D3002BD73108D3ie2BD76108D 

0e82BD771O8D0182A98O8D0e,591 

1298 DATA D88DeiD88De2D88De3De8D04D88D 

e5De8D8eDe8DO7DeA59ED820854DADC40218e9 

188DC402A90485B4282OHC6,663 

1300 DATA B4A5B4C901D8F52820122076124C 

5FE4D820BB0E207FODA59ED01B281417285E18 

208510209C172O961220CE0D,739 

4i^gBRSIS„l§^g®'^28220E28B2134C62E4A6B7 

3ei9BDB88D85A2BDC30D85A7A6A28E80D2E88E 

02D2A5A6F083C6A668A5A785,314 

1328 DATA A6EEB68DADB60f>2901AABDB40D8D 

01D28DO3D26000A48e00AOAAB4BEC8D2DCE6F0 

FA8C028486888A0C0E181214,141 

1338 DATA 01A69FF00FCAC69FBDE28D8DO4D2 

BDF80D8De5D26000ECD8C5B19D8A76634F3B28 

140100A2A2A2A2A4A4A4A4A4, 963 



1348 DATA A4A8A6A6AeAlF88FCAC6AlBD128E 
8De6D2BDlA8E8D87D26880FED4AA7F552B0100 
A8A8A8A8A8A8A8A6A8F0eFCA,888 
1350 DATA C5A0BD368E8D04D2BD798E8D85D2 
6080FDF9F5FlEDEAE6E2DEDaD6D3CFCBC7C3BF 
BCB8B4B0ACA8fl5A19D999591,399 
1368 DATA 8E8A86827E7B77736F6B6764685C 
5854584D4945413D3936322E2A26221F1B1713 
8F0B0884008A8A8A8A8A8A8A,57 
1370 DATA 8A8ft8A8A8fl8A8a8A8A8A8A8A8A8A 
8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A 
8A8A8A8A8A8A8A8A8A8A8A8A,2e7 
1388 DATA 8A8A8A8A8A8A8A8A8A8A8A8A8AAD 
1FD0C9O7F0848D180F68AD138FC906F889C905 
F88AC9e3F03360A2O14C120F,188 
1390 DATA E6A5A5A5290185A5A213A9009D88 
169D9C16CA10F7A6A5BD190FAABD1B0F9D8816 
BD2F8F9D9C16CA10F14C120F,148 
~ 1488 DATA E6A4A5A4C983BOF8A28086A38E18 
8FeO8e8A13B8ACAlB9ASB2e8Die8880eO8B8AC 
AlB9A5B28eD2805858505858,157 
1418 DATA 5088888888008058585858585888 
F8A6A5B4BEFeiBAD451E0A8A8AeA1875AD95AD 
A98075AB95ABA98875A995A9, 431 
1420 DATA 88D8E5CA10DEA2e5A4A58ft398318 
AAB5A948298Fe950BC?ftl8999016684A4A4A4A 
8950999C16CA18DF18A204A0,288 
1430 DATA 02B5A975AA99AF80CACA8818F4A2 
82BC8818B5AF4829eFe958997516684A4A4A4A 
8958997416CA10E6D860A900, 125 
1448 DATA 8D05D28D07D2859F85A885A16eD8 
48AD7DlD8D0eD0AD7ElD8D0iD0AD7FlD8D02D8 
AD881D8De3D8AD811D8D07D0,505 
1450 DATA 1869828D06D81869028D05D01869 
028D04DOA9878D0802A91O8Dei02684048A908 
8D88De8DeiD88De2D08De3D0,419 
1460 DATA 8D84D88De5D08D86De8De7D8684e 
488A48A287AD78188D6F10AD6F188D8AD48D17 
D8AD6F181869028D6F10CA10,977 
1470 DATA EBA9658De0O2A91O8D81O2CE7118 
180EA5A48D7110EE71108E7iieEE7ei86eAA68 
484eADC5028D17D0634e8000, 228 
1488 DATA OO08O01FEB10C98F24100ieD038F 
0511O7098BeEOFA2O4E0e2B01CBD911DCDC810 
Be0FBC2DlDB9CB109D2DlD20,388 
1490 DATA F7124CA710CDCA1OB8ECBD7D1DCD 
C710Be0FBC2DlDB9DB109D2DlD20F7124CC310 
CDC910B0ECCA10C16e2C20C6,8O7 
1500 DATA D708e70605O40302ei0O0FeE0D0C 
OB8A09000FOE0&0C0B0A8908870605e4O3O2ei 
707870784688164690167078,410 
1510 DATA 70F0463816Ee464Ci65046Beie28 
46C4162e46D8162O46EC167O7846OO17707046 
e01646741641EB10A6B4BD69,515 
1520 DATA lDF0ei6eBDDDlC3e39A4A5B9691D 
OO2FBD7D1D38F97D1D2OE112C5B5B021BD911D 
38F9911D20E112C5B5B813B9,866 
1538 DATA 7DlD8D7F13B9911D8D88132e4813 
A9eiD8118818C9BDA51D8D7F13BDB91D8D8813 
A98e9D411DAD7F13DD7DlDF0,532 
1540 DATA 12BO22AD8O13DD911DDOO4A904D8 
74B84A9835AD8813DD911DFe66BOO4A9O0F062 
fl9e8OO5EAD8O13DD911DD0O4,781 
1550 DATA A90CD052Be3B9O00200512FOO69O 
88A98DD843A98EDe3FA9OFDe3B2OO512FOe690 
08A983De38A982D82CA901De,128 
1568 DATA 28288512F00698O8A9O5DO1DA9O6 
DO19A907DO152O0512FOe69OO8A9OBDOOAA98A 
De86A909D0O2A9FF9D191D60,208 
1570 DATA AD80133eFD911D20E1128D8313AD 
7F1338FD7D1D20E112CD831360C6B81047AE45 
1EBDA31385B8A284BD691DD0,212 
1580 DATA 33a9e32eFDeAA8C8BD191DDD2DlD 
Fe24B0OE2OeC12C908B01O9849FFA8C83eO92O 
6C12C988F882B8F898187D2D,937 
1598 DATA 1D28E9129D2D1DCAE881D0C360BD 
191D38FD2D1D4CE112A204DE851D1013AC451E 
B9AA13BCDD1C1O820AOA9D05,90 
1688 DATA 1D28F712CAE881D8E360A284BD69 
1DD83EBDDD1C1016BD911DC98F9004C9EB9OOB 
E6B6C6B7A9019D691DD023BD,613 
1610 DATA 411DD01EBD191D1019BD551DF014 
9DB91D2eEB0A9DA51D20F40ABDDDlCe98e9DDD 
1CCAE881D8B8681O0549FF18,346 
1620 DATA 690160188418691868C91890e338 
E91868BD691DD843BD191D383EBC2D1DB98413 
8D8113187D7D1D9D7D1DB994,359 
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1630 DftT« 13808213187D911D9D311DBDDD1C 

l©lC237Ffl8ftD81131879D40O99D4OOftD821318 

79B51C99B51C*J9fll99C0806e,832 

1640 DflTft DEFllCie29ft5B99DFllCB0CDlDD8 

lFBD191D482e7711fl8689D191DC0FFFaeFB96F 

133DCDlDO5Ofl9DEllDa90E85,98 

1650 DflTfl 9F60ei08880804O6e60602070797 

038585050O080O00Oe0OFFFEFEFEFEFEFF00Ol 

O2e202020201FEFEFEFF0e01,251 

1660 DflTfl e2O2O28282eiO8FFFEFE80Oe0eeO 

8eeO8OO00000O0eoee8OA9848D5814AE5S14BC 

1D1E8D311ED366149806B965,19 

1678 »«Tft 1430311ED9651490F50Aft8B97814 

85'!4B979148585flD58148aa8B96E148586B96F 

lM^s-«7fl9078D5ftl4187D911D,737 

1180 nttra 8D5B14ftC5ftl4B184ftC5B149185CE 

S.<14CE5ftl410EEfl3878D5gi4flE5814BD911DAE 

S914i87D5D14fl8O5009186CE,467 

1690 DATA 531410E9CE5814188DCE5C141O28 

A9048D5C14ftAEO02B007BOlDlEC907D014BD31 

1EC92FF00DFE311EC92ED006,922 

1700 DATA E0e290e2E6B6CA10DE6e0808808e 

03FCFDFEFFO8098A0B0O1014181ClF2327308e 

O4Oee50eO6OOO7O803D814EO,23 

1710 DATA 14E814FO14F814001508151O1518 

15201528153015381548154815501558156015 

681560157015781580157815,526 

1720 DATA 8815901558159015AO15A815B015 

B815C015C815C015D815D815E015E815F015F8 

150016081810151816201628, 329 

1730 DATA 1630161010103854824444202010 

1E19212O108O4O201F19101O180O00C639181O 

ieOCe40B10FOie0B0400OC10,8O 

1740 DATA iei839C68080181OlO191F2O4O8O 

182O21191E10202O444482443818iei008e484 

9878e8040418O8O898F8O4O2,243 

1750 DATA 013O08O8189C63800O2OD8O8OFe8 

&820e00e08631C1888O83O01O2O4F898080818 

040408789884040818802481, 381 

1768 DATA 8124081818422481812442189942 

24818124429980003C24243C000O0O66421818 

426608C38i0018180081C33C,18O 

1770 DATA 42A58181A5423C08182442422418 

0O0000183C3C1800000000182424180OOO0O18 

OO5A5A0018001800i8A5A518,130 

1780 DATA 00182028E41818270404O8246618 

1866248804042 71818E42820aC4O902525884e 

OC180099A104184224300219,301 

1790 DATA 84AO19023024420824A5910ei80e 

OeOO1818O8OOOOOe0088381C100OO0OeO8O878 

1E1O100008082CE007341010,877 

1800 DATA 084A24CO0324521O8942248OO124 

42918142800000004281810000000000008100 

000000000000000000800000,587 

1810 DATA 626163746572696F6E41O00OO0OO 

OeeOB4A8A5OOB0ACAlA7B5A500AFA6O0D2D3De 

D9OOOO0O00OOO0B4A5A1ADOO,1O 

1820 DATA B3A3AFB2A5O0OOO00OOOO0OeO0OO 

00000000000000800000000000000000800000 

880000000000000000808000,870 

1830 DATA 8000000000080000000000000000 

00000800000000000000000080000000000000 

002239800000000000800000, 961 

1840 DATA 8eO0OO0OEBF9ECE50OFOE5ElE3EF 

E3EBO0OOOOO00OO8888e8OO0O0OO37293428OO 

000080000000008000000000,720 

1850 DATA F4EFEDO8E8F5E4F3EFEE80OOOOOO 

0eOOO0AlAEAlACAFA700A3AFADB0B5B4A9AEA7 

0OOOA6A5BD691DF0OBDE691D,694 

1860 DATA D0262042094C4617204A17DE7F17 

iei8A9839D7F17BC7802BD21>lD18798C172eE9 

129D2D1D9D311ECA10CD68DE,608 

1878 DATA 461E182FBD7802C90EF0O8C9eAFO 

O4C906O006DE5A1E4C5717FE5A1EBC5A1EB981 

179D5A1E9D461EBD461ECD8B,151 

1880 DATA 17FOO320F71260O0000282O2O384 

05O6878888O8888O0O0O00FFFFFF00O10101OO 

00e000A6A5BD691DD077A901, 784 

1898 DATA 8D5B18BDeCD82982F003202118EE 

5B18BD8CD02904F003282118EE5B1RBD0CDO29 

08F0832O2118EE5B18AOO38A, 760 

1900 DATA 1869013988DOF883202118881OF1 

CE5D181828A9O38D5D18BD04DO29Q1F01CA982 

20FDOAACOAD2100549FF1869,744 

1910 DATA 81187D2D1D20E9129D2D1O9D311E 

BDO4D02902FOO68E5B18282118CA1O818D1EDO 

6e8C5C18AC5B18B9691DD00D,659 



1920 DATA 8AA8203D18AC5B18203D18FeBEAC 

5C1860B969iDDei3A907991DlEA9789969H>A9 

00859FA94285AO6O6868AC5C, 373 

1930 DATA 186e880eoe2ee4184CCA18A6A56D 

e91DDe5BB5BAFe05D6BA4CC618B5BCC904B04C 

BDieD0D047F6BCA90785AlA9,805 

1940 DATA 0395BAA00CB96ElE38e388DeF88C 

4O198A996E1EBC2D1D9848B984130A187D7D1D 

38E92CAC4019997D1D68992D,281 

1950 DATA 1DA8B994130A187D911D38E91CAC 

401999911DCA109D6eA20CBD6ElE30692eF712 

BD7D1DC9A2B03E95D9BD911D,165 

I960 DATA C9C0B0359DBA1CA804B9691DD043 

BD7D1D18693038F97D1DC989BB35BD911D1869 

2O38F9911DC9B9Be27203D18,879 

1970 DATA 8E4119BD6E1EAAF6BEAE41198E41 

19BD6E1EAAD6BCAE4119A9FF9D6E1E95D99DBA 

1CD00588COO1DOB3A90195C5,610 

1980 DATA CAE004DO8DeO8008A6S9E8ClBO2E 

BD3S1B858OBDF51B8581A588C9A8BO1E2903AA 

A5884A4A8598A48ABD2DlB39,il6 

1990 DATA 251B8595BD291BA4983180059591 

8e6OA58CC5899OOB38E5898590A9O18592D0OB 

A58938E58C8590A9FF8592A5,768 

2000 DATA 8BC588900B38E5888S8FA9018591 

D00BA58838E58B858FA9FF8591A90e858E8S8D 

A58FC590900A859385944A85,751 

2810 DATA 8E4CCE19A590859385944A858DA5 

93F03DA58E186590B009858EC59490eEA58E38 

E594858EA5891865928589A5,593 

2020 DATA 8018e58F8ee9858DC5949e0EA58D 

38E594858DA5881865918588284219C693D0C3 

e0A6B2A90095Ce858A65E885, 455 

2830 DATA 88BDC91C8S89A9O828401AA6B2B5 

D4858895E8BDB51C85899DC91CA9ei858AA9O0 

20401A608A0A8A8599A90885, 465 

2040 DATA 9AA699BCDD1A303469851A859BB9 

8D1A859CBD951A859DA58818659B8588A58918 

659C8589A59AC9e8F0032042, 972 

2050 DATA 19A59DFeO4C69DD0ElE699C69ADO 

C56OOO0OO1FF81FF01FFFFO1000OFF01O1FF03 

020202020202000028008008,178 

2060 DATA 0000000028800000000000002880 

00000000000028000000800000002880000000 

000000280000000000000028,418 

2070 DATA 8000000000080028888880000000 

e2O5e3O7O4e2O6FFoeoeFFOoooooo0eeoooiFF 
ooeoeoeooo8ee2FFoeoooeoo,5io 

2080 DATA OO8OO3FFe08e0OO00OOeO4FFOOOO 

S0ieeiii@iPFoeioooooooo0006FFoeoooeoeoe 

0007FFe08eOOOeoeoe5SAAFF, 320 

2090 DATA 3FCFF3FCC030eC0340100401000e 

00008000000080000000000000000000000000 

ooeoeooooeooooooeoooeeoe, 425 



CHECKSUM DATA 
(See page 23) 



10 DATA 58,351,496,811,423,729,280,603 

,555,573,694,613,29,205,210,6550 

160 DATA 126,198,962,783,491,30,155,14 

9,165,664,922,282,984,546,128,6585 

1060 DATA 935,150,610,902,831,393,206, 

176,260,139,808,794,46,226,882,7358 

1210 DATA 131,146,200,935,5,841,50,688 

, 71 , 755 , 994, 67, 182, 274, 571 , 5918 

1360 DATA 914,577,146,147,630,600,957, 

868,3,373,938,541,827,238,251,8002 

1518 DATA 412,913,920,795,644,634,908, 

931,136,99,182,783,986,416,526,9125 

1668 DATA 468,727,71,38,556,46,366,116 

,32,46,153,69,19,939,726,4364 

1818 DATA 703,590,358,186,257,888,174, 

243,783,663,881,961,979,76,938,8600 

1960 DATA 986,316,44,853,937,937,837,8 

72,993,559,434,731,938,648,10085 
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8ACTERI0N! 

THE PLAQUE OF 2369 

BY 

KYLE PEftCaCK 

WITH 

TOM HUDSON 

ANALOG COhPUTINQ tlAQAZINE 
ALL RIGHTS RESERVED 


• 
» 

» 

• 

« 

>• 



« STflRI MEMORY USftQE 



CASINl 
DDSVEC 

ooaiNi 

9DMCTL 
PMBftBE 
SRACTL 
QF-RIOR 

Aiinci 

ftUDC2 

flUDC3 

ftUDCA 

fiUDFl 

flUDF2 

flUDF3 

«UDF4 

AUDCTL 

HITCLR 

UI3YNC 

RfiNDQM 

PCOLRB 

COLPFBI 

COLORB 

C0L0R4 

NMIEN 

CH 

SKSTBT 

RTCLOK 

VDSL9T 

aOLSTL 

HPOaPB 

Hpoapi 

HPa8P2 
HP03P3 
HPO3M0 
HP03M1 
HP0SM2 
HP0SM3 
ATRftCT 
CQNaOL 

aricKa 

P0PL 
M0PL 

papF 

TRIQB 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EDU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EBU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EBU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



• 0002 

teeec 

• a22F 
«D-I107 
«D01D 
»02AF 

• D201 
»D203 
4D20S 
»D207 

*D2eci 

• D2BZ 
»D204 
»D206 

• D208 

• D01C 

• D40A 
«D20A 

• 02C0 
«D0t6 
*02C4 

• 0ZC8 

• DIBE 

• 02FC 
»D20F 
»12 
»0200 
»0230 

• D000 
*D001 
»D002 

• D003 
*D001 

• D003 
*D006 
»D«07 

• 4D 

• D01F 

• 0278 

• D00C 
*De08 
«D00'l 

• D010 



I RESTART VECTOR 
I RESTART VECTOR 
IRESTART VECTOR 
■DMA ENABLE SHADOW 
IPM BASE REQ. 
ISRAPHICS CONTROL 
IPRIORITY CONTROL 
(AUDIO CHANNELS 



I AUDIO FREQUENCIES 



I AUDIO CONTROL 
ICLEAR COLLISIONa 
IWAIT FOR HOR SYNC. 
I RANDOM «s 
ICOLOR OF PLR/MI3 
IPLAYFTELD COLOR «0 
ICQLQR REQISTER3 
(BACKGROUND COLOR 
INMI INTER. ENABLE 
1LA3T KEY PRE33ED 
(KEYBOARD STATUS 
(INTERNAL CLOCK 
(DLI VECTOR 
(DLI3T VECTOR 
[HOR. P03. PLR 
(HOR. POS. 
[HOR. POS. 
(HOR. PD3. 
(HOR. PQ3. 
(HOR. POS. 
[HOR. POS. 
(HOR. POS. 
(ATTRACT MODE FLAG 
(CONSOLE BUTTONS 
(JOYSTICK PORT 
IPLR/PLR COLLISIONS 
(MIS/PLR COLLISIONS 
(PLR/PLF COLLlalONS 
(JOYSTICK BUTTON 



PLR 
PLR 2 
PLR 3 
MISS 
MISS 1 
MISS 2 
MISS 



• ATARI HARDWARE REGISTERS 

9ETVBV EQU »E-13C (BET SYS. TIMERS 

SY3VBV EQU »E43F (lit STAQE VBLANK 

XITVBV ECU »E'(42 IX-IT VBLANK 

aiOINV EQU »E463 [310 INIT 

• PLAYER/MISSILE DATA AREA 

• 0000 

PLAYBS+074a 

PLAYBS-H0Z4 

PLAYBS+I280 

PLAYBS+1336 

PLAYBa+1772 

» DISPLAY DATA AREA 



PLAYB3 


EQU 


MISS 


EQU 


PLAY0 


EQU 


PLAYl 


EQU 


PLAY2 


EQU 


PLAY3 


EQU 



DLI ST EQU 
DISP EQU 
DISP2 EQU 



• 1F00 

• 2010 

• 3000 



• ZERO PAGE VARIABLES 



LO 

HI 

BALD 

BAHI 

DRWLO 

DRWHI 

PLLO 

PLHI 



ORG »B 

DS 1 

DS 1 

DS 1 

Da 1 

DS 1 

DS 1 

DS 1 

DS 1 

VARIABLES 



• PRIMARY USE IN 'PLOTTER' ROUTINE. 



PLOTX 

PLOTY 

COLOR 

DRAWX 

DRAWY 

ACCX 

fiCCY 

DEL TAX 

DELTAY 

INCX 

INCY 

COUNTR 

ENDPT 

HOLD 

XWOPK 

YWORK 

Y0F3ET 

3HAPI X 

SHAPCT 

XI 

VI 

LENGTH 



DS I 

D3 1 

DS 1 

DS 1 

DS 1 

DS 1 

DS 1 

DS 1 

DS 1 

DS 1 

DS 1 

D3 1 

DS I 

OS 1 

DS 1 

DS I 

DS 1 

D3 1 



DS 

DS 1 

Da 1 

DS 1 



(PLOT X-COORD. 
[PLOT Y-COQRD. 
(POINT COLOR. 
(DRAWTO X-COORD, 
IDRAWTO Y-COORD. 
(X ACCUM. 
(Y ACCUM. 
(DRAW WORK AREA. 
(DRAW WORK AREA. 
(DRAW X INCREMENT, 
[DRAM Y INCREMENT. 
(DRAWTO COUNTER. 
(DRAWTO ENDPOINT. 
(I40RK AREA. 



[PLOT Y DFF3ET. 

(OBJECT ». 

[OBJECT SHAPE COUNTER. 

(OBJECT X INCREMENT. 

(OBJECT Y INCREMENT. 

[OBJECT (TAKE A GUESS!) 



• PRIMARY USE IN 'TEST' ROUTINE. 

VSTOP DS 1 (STOP VBLANK FLAG. 

LSOUND DS 1 [LASER SOUND FLAG. 

XSOUND DS 1 [DETONATION SOUND FLAB. 

CSOUNO D3 1 I CANNON SOUND FLAG. 

FREO DS 1 ( PUL3E SOUND FREQUENCY. 

DEMO DS 1 (GAME UNDERWAY FLAG. 

STRUCT Da 1 (CELL STRUCTURE (t . 

NOPLAY DS 1 (» OF PLAYERS. 

SDELAY DS 2 (PULSE SOUND DEI AY. 

I laTPT DS I [DISPLAY LI3T POINTER. 

3C0RE1 D3 2 [LO-BYTE OF SCORES. 

SCORE? DS 2 (MD-BYTE OF SCORES. 

3C0RE3 DS 2 [HI-BYTE OF SCORES. 

rSCRl DS 3 (TOTAL SCORE BYTES. 

CELNUM DS 1 [CELL » BEING DRAWN. 

CELREF DS 1 I CELL d BEINQ REFRESHED 



» PRIMARY USE IN 'STRAT' ROUTINE. 

[ATTACKINB BACTERIONI • 
[ATTACK PLAYER RADIUS. 
[» OF ESCAPED VESSELS. 
f» OF CELLS REMAINING. 
(BACTERION! TURN TIMERS 
FIRETM DB 1 (RAM COPY OF 'GEVFRE* 

» PRIMARY USE IN 'SHOOT' ROUTINE 



QEVNUM 


DS 


FRANHE 


DS 


GEVESC 


DS 


TOTCEL 


DS 


TURNT 


DS 



FDELAY DS 2 
NOBULL DS 2 
NOKILL Da 2 



(DELAY BETWEEN SHOTS. 
(• OF BULLETS FIRED. 
[• OF VESSELS KILLED. 



• PRIMARY use IN 'TEST' ROUTINE 



CELLMV 
CELLNX 
CELLOX 



DS 20 (CELL MOVING FLAG*. 
DS 20 (CELL NEW X-COORD. 
DS 20 (CELL OLD X-COORD. 



CELLNY DS 20 (CELL NEW Y-COORD. 

CELLOY Da 20 (CELL OLD Y-COORD. 

QEVCEL DS 20 (CELL » BEING HEISTED. 

« PRIMARY USE IN 'STRAT' ROUTINE 



QEVFRE 


D8 


20 


(BACTERION! FIRE TIMERS 


MOVET 


DS 


20 


IBACTERIONt MOVE TIMERS 


8EVDE3 


DB 


20 


[DESIRED DIRECTION. 


QEVDIR 


DB 


20 


[ACTUAL DIRECTION. 


ATTACK 


DS 


20 


[ATTACKING PLAYER FLAG. 


ESCAPE 


DS 


20 


[Y-COORD FOR ESCAPINO. 


STOP 


DS 


20 


[BACTERION! ICED FLAB. 


QEVX 


D3 


20 


[BACTERION! X-COORD. 


BEVY 


DS 


20 


(BACTERION! Y-COORD. 


TARX 


DS 


20 


(BACTERION! TAR8ET-X, 


TARY 


DS 


20 


(BACTERION- TARQET-Y. 


LBRDIR 


DS 


20 


(LASER FIRING DIRECTION 


LSRTME 


DS 


20 


(LASER LIFE TIMER. 


LASERX 


D3 


20 


(LASER X-COORD. 


LA3ERY 


DS 


20 


[LASER Y-COORD. 



• PRIMARY USE IN 'DRAW' ROUTINE. 

TYPE D3 20 (VESSEL TYPE. 
PHASE D9 20 (VESSEL PHASE. 
TYPES DB 1 (ATTACKING TYPE. 

• PRIMARY USE IN 'SHOOT' ROUTINE. 

SPEED D3 20 (SPEED A PLAYER MOVES, 
CSPEED DS 20 [RAM COPY OF "SPEED* 
BULLET DS 20 [BULLET OWNER (0 OR 1) 

TITLE 'BACTERION! MASTER ASSEMBLY' 

INCLUDE DlGEV.TXT 

ORQ tzeee 

LQC •0800 
TITLE 'ONE SHOT INITIALIZER' 



RELOCATE CODE 



JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
BTA 
LDA 
STA 
LDY 
LDA 
STA 
I NY 
BNE 
INC 
INC 
LDA 
CMP 
BNE 
LDA 
STA 
BTA 
STA 
LDA 
STA 
STA 
STA 
J MP 



3I0INV 

«*2'2 

3DMCTL 

•HIGH •2S00 

HI 

«LOW •2800 

LO 

OHIGH •0800 

BAHI 

»LOW ^0800 

BALO 

«^00 

<L0) , Y 

(BALOl , Y 



MQVELP 

HI 

BAHI 

HI 

•••40 

MOVELP 

••HIQH TEST 

DOSINI+1 

CASlNIt] 

DOaVEC+1 

••LOW TE3T 

DOSINI 

CASINl 

DOSVEC 

TEST 



(INIT SOUNDS. 

( INITIALIZE 

(DMA CONTROL, 

(SET ORIQIN 

(ADDR. IN 

[ 2-BYTE 

(POINTER. 

(SET DESTIN- 

[ATION IN 2- 

[BYTE 

(POINTER. 

(RESET Y-REG. 

(MOVE A 236 

[BYTE BLOCK 

[U3INB Y-REQ. 

I 

[NEXT 236- 

[BYTE BLOCK. 

( 

[DONE YET7 

[ NO-KEEPITUP. 

ISNAO ALL 

(RESET 

[ VECTORS 

[SO AS TO 

[GAIN 

(COMPLETE 

(CONTROL OF 

(THE SYSTEM. 

(ALL DONE. START! 



LDA •••03 

STA SRACTL 

LDA Htl0 

STA QPRIOR 

LDA »»ee 

TAX 

STA PLAY0,X 

STA PLAYl, X 

DEX 

BNE :PMSET 



(GRAPHICS 

[CONTROL. 

[PRIORITY 

[REGISTERS. 

(CLEAR OUT 

(PLAYER 

;«< PLAYER I 

I 

(ALL DONE? 

(NO! CONT. 



CLEAR OUT PLAYERS' SCORE! 



LDX ••02 

LDA «*00 

STA SCOREl.X 

STA 8C0RE2*!, 

3TA TSCRl.X 

DEX 

BPL :CLR82 



(FILL WITH 



[ALL DONE? 
INO! CONTINUE 



CLEAR PLAYFIELD AREA 



[ I ' LL LET 
[YOU GUVS 
(FIGURE OUT 
(WHAT'S SOINQ 
[ON HERE' 

(I'M SO LAZY ! 



LDA «LOU DISP 

STA LO 

LDA »HIGH DISP 

STA HI 

LDX ^0 

LDA LO 

STA LOTBL.X 

LDA HI 

STA HITBL.X 

LDA •0 

LDY ••3<? 

BTA <LQ),Y 

DEY 

BPL CDLPZ 

INX 

CPX •192 

BEQ DOIT 

LDA LO 

CLC 

ADC tt40 

STA LO 

LDA HI 

ADC VB 

STA HI 

JMP CDLP 



BET UP ATOMIC PILE CELLS 

LDX STRUCT 

LDY STRBSE.X 

LDX tlf 

8TX TOTCEL 

LDA ZICELX.Y fX-COORDS 

STA CELLOX, X 

8TA CELLNX, X 

LDA : ICELY " 

STA CEl LOY, 

STA CELLNY, 

LDA •••00 

STA CELLMV, X [CELLS NOT MOV- 

[ INQ STATUS. 



[ Y-COORDS 



INY 
DEX 

BPL SETCEL 

SET UP PLAYERS PROBES 

LDX ••00 (FLIP TO SAME 

STX LISTPT (BOARD SCREEN. 

STX QEVXi'0 (X-COORD. 

STX QEVX+1 [X-COORD. 

JSR SETPLR I3ET IT UP NOW. 

LDA NOPLAY i I PLAYER GAME? 

BED SETTYP [YES! SKIP *2 

INX J NO! SET UP PLR 2. 

JSR SETPLR (SET IT UP NOW. 

ATTACKING BACTERION' TYPE 

LDA »*ei (SLOWEST TYPE 

STA TYPES (ATTACK3 FIRST. 

STA TYPE-12 

STA TYPE*3 

STA TYPE*4 



» BACTERION 
3ETMDB 



INITIAL A.I, SPEEDS 



(MOVEMENT SPEED 
(TURN SPEED 
(FIRE SPEED 



BUILD GAME BOARD DISPLAY LIST 



LDX ••03 

LDA IMOVDB.X 

STA MOVEDB.X 

LDA ITURDB.X 

STA TURNDB.X 

LDA IFIRDB.X 

8TA FREBaE.X 
DEX 

BPL SETMDB 



JMP INIT2 

INITIALIZE GIVEN PLAYER 



LDX 
LDA 
STA 
DEX 
BNE 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 



• •00 

• •0E 
DLIST, X 

BDLQQP 

• »70 
DLiaTi-0 
DLIS1+I 

• ♦K0 
DLIST-i-2 

• *4E 
Dl_ 1ST 
DLISTt 

• HIGH 
DLIST 

• LOW 
DLIST 

• HIGH 
DLIST* 

• LOW D 
DLIST' 

• «4t 
DLIST< 

• •SE 
DLISTt 

• HIGH 
DLIST 

• LOW 
DLIST 



3 

107 

DISP 

5 

ISP 

4 

DiaP2 

109 

ISP2 

108 



199 
m. 1ST 
202 
LIST 
20 1 



(RESET X-REQ. 

[DLIST OPCODE 

[STORE IT. 

(DONE YET7 

(NO! BO BACK! 

( 

[ INSTALL 

[REMAINDER OF 

[SPECIAL 

I DISPLAY 

(LIST OF- 

( CODES i OP- 

(ERANDS INTO 

(DISPLAY 

(LIST. 

( 



LDA ^^00 

3TA STOP.X 

STA TYPE.X 

LDA ••01 

STA SPEED, X 

STA CSPEED, X 

LDA PLRPHS," 

STA PHASE, X 



[PLAYER NO LONG- 

(ER DEAD OR EXP- 

ILODINB. 

[SET UP FOR 

[COASTING SPEED. 

( 

[CORRECT TYPE 

[OF VESSEL 



.. i .. • .iriw^ n , ui VI- 

STA QEVDIR, X [PHASE 
LDA PLRX.X (PROPER X-COORD 



STA QEVX 

LDA «12a 

STA QEVY, 
RTS 



(PROPER Y-COORD. 

( 

(ALL DONE. . . 



[ 



PLRX 
PLRPH3 



DB 44.193 (INITIAL X-CQDRD3 
DB 12,4 [INITIAL DIRECTIONS 



PLAYER/MISSILE INITIALIZATION 

LDA ••3E » 

3TA SDMCTL (DMA ENABLE. 

LDA •HIGH PLAYBS ! PM BASE 

STA PMDAUE [ADDRESS. 



» BACTERION! INITIAL TURNING DATABASE 
ITURDB DB 32,44,36,28,20,12 

• BACTERION! INITIAL MOVING DATABASE 
IMOVDB DB 13,11,09,07,03.03 

• BACTERION! INITIAL FIRING TIMES 
IFIRDB DB 70,63,60,35,30,43 

• OFFSET DATABASE TO CELL FORMATIONS 
STRBSE DB 0,10,20 

• CELLS INITIAL X-COORDS 



ISSUE 20 
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:1CELX DB iB, SB, 92, 62, 71 
DB a&, 98, 68, 90,92 

OB 79,79,79,79, 73 
DB 83,47, 9J,6l,97 

DB 79,71,87,79,79 
DB 79,79,71,87,79 

» CELLS INITIAL Y-C00RD9 

:ICEUY DB 93,93,93,96,96 
DB 96,96,99,99,99 

DB 76,82,88,94,98 

DB 98,1192,102,106,106 

DB 86,90,90,94,94 
DB 94,94,98,98.102 
TITLE 'BfiCTERION! ftULT I - IN I T IfiL I ZER' 

1NIT2 PROC 

• ALLOW THINSa TO SETTLE DOWN 

LDX (l»01 iSTOP VERTICAL 
STK VSTOP IBLANK ROUTINE. 

• INITIALIZE SOUNDS 



SET UP FIRINO TIME 



DEK 

TXA 

STA AUDC3 

3TA AUDC4 



(TURN OFF SOUND 
IREQISTER3 i INIT 



STA AUDCTL I SOUND CHANNELS. 

• CLEAR PLAYER MISSILE AREA 

:ER1 STA MISS.X IBACTERIQNI •!. 

STA PLAy4,X iBACTERION'. «2. 

STA PLAY3,X IBACTERION! »Z. 

STA HITCLR 1 CLEAR COLLISIONS 
DEX 

BNE :ER1 

» ENEMY BACTERIQN!* X , Y , >, DIRECTION 

I HANDLE ALL. 

IQET TYPE DF ATT- 

jACKlNB BACTERIDN. 

(RANDOM X-COORD. 

(STORE IT. 

(RANDOM NUMBER. 

IBRANCH IF > 0. 

) INITIAL Y-CDORD. 

(BRANCH! 

» INITIAL Y-CQORD. 

(STORE IT. 

(RANDOM DIRECTION. 

• ENEMY BACTERION!R« TAR8ET CELL 

SEL LDA (t»00 [CLEAR 

3TA TRY (COUNTERS, 

STA BEVESC (• OF ESCAPEES, 

8TA 8Tap,X (DEATH STATUS, 

STA OeVCEL.X JTARQET CELL, 

STK LSRDIR.X (LASER FLOS,^ 

STA QEVFRE.X (FIRE TTMC FLA3, 

STA ESCAPE, X [ESCAPE Y-COORD. 

LDA RANDO [SET RANDOM « 

CMP »*0e ( GREATER THAN •DS 

BCS SELIT (YES, BRANCH! 

aEL0 LDA »»ee> (random it seed 

JSR RANDO [GET RANDOM CELL « 
TAY (3T0RE IN Y-REB. 





LDX 


*>04 


SETBEV 


LDA 


TYPES 




STA 


TYPE, X 
PICKX 




JSR 




STA 


GEVX. X 
RANDOM 




LDA 




BPL 


rPLUai 




LDR 


»21 




BNE 


: PLUS2 


:PLU8t 


LDA 


»228 


:PLU92 


STA 


QEVY, X 



JSR PlCKtR 



8TX : XHOLD 

LDR ESCAPE, X 

BEQ CFICKl 

TYA 

CMP QEVCEL.X 

BEQ 3EL1 

INX 

CPX «*0S 

BNE CPICKe 

LDX : XHOLD 



[SAVE X-RE8. 

[ESCAPE Y-COORD 

[EQUAL 07 

(NO I MOVE Y TO A 

I IS THIS CELL 

[SPOKEN FOR? 

[NOl MOVE ON 

[TO NEXT 

[ BACTERION '. 

[RESTORE X-REB. 



HEIST THIS CELL (IN Y-REO.) 



LDA 
CMP 
BCS 
LDA 
JSR 
STY 
TAY 
LDA 
STA 
LDA 
LDY 
CLC 
ADC 
STA 
LDA 
CLC 
ADC 
STA 
TYA 
STA 
J MP 



CELLNY, Y 

»194 

SELl 

K*02 

RANDO 

: YHOLD 

E3CDT, Y 
ESCAPE, X 
CELDT, Y 
: YHOLD 

CELLNY, Y 
TARY, X 
CELLNX, Y 

• 44 
TARX, X 

BEVCEL, X 
3EL2 



LDX (XHOLD 
DEC TRY 
SNE 3EL0 



(CELL Y-COORO. 
[OFF SCREEN? 
(YES! TRY AGAIN. 
[RANDOM If SEED. 
[BET RANDOM It . 
(SAVE Y-RE8. 
(MOVE It TO flCC. 
(GET PROPER ES- 
[CAPE Y-COORD. 
[BET OFFSET FOR 
(LOCKING ON TO 
(TOP OR BOTTOM 
[OF CELL 8. STORE 
I IN TARBET-Y. 
(BET X-CQORD OF 
(CELL t, 3TDRE 
I IN TARGET-X. 
( 

[MAKE THIS CELL 
(SPOKEN FOR. 
(HANDLE NEXT. 

[RESTORE X-REQ. 
[DEC. COUNTERS 
■,S, BRANCH! 



» CAN'T FIND A CELL, ATTACK PLAYERS 
SELIT LDY NOPLAY ! It OF PLAYERS. 



INY 

TYA 

JSR RANDO 

TAY 

LDA BEVX 



(ADD ONE. 

(RANDOM • SEED. 

[GET RANDOM It. 

[MOVE TO Y-REB. 

(PLAYER'S X-COORD. 
STA TARxJX [USE AS TARGET-X. 
LDA BEVY.Y [PLAYER'S Y-COORD. 
STA TARY,X (USE A3 TARBET-Y. 

DEX [HANDLE NEXT 

CPX »»BI (BACTERION' IIF 

BEQ :NEXT [WE AREN'T DONE.) 

JMF SETHEV [JUMP TO IT! 

SET UP RANBE OF ATTACK 

LDA 1140 
STA FRANQE 



LDX TYPES 

LDA FREBSE- 

STA FIRETM 

CMP lt»03 

BCC PROJTl 

SEC 

SBC lt*03 



(ATTACK TYPE. 
(GET DATA FROM 
[FIRING DB. 
[IS IT < 37 
I NO! BRANCH! 
[YE3! SUBTRACT 
(3 S. 3T0RE 



STA FREBBE-1,X [IT IN DB 
CLEAR PROJECTILE WORK AREA 



LDX «12 

LDA »»FF 

STA BULLET, X 

STA CELLNX+3, 

STA CELLNYta, 

STA CELLMV->-3, 

DEX 

CPX •»04 



(HANDLE ALL. 

[ INACTIVE STATUS 

[OWNER. 

[ X-COORD. 

[ Y-COORD. 

(MOVING. 

[HANDLE NEXT 

( ( IF ANY) . 



BNE CLRPRO 

SET UP COLOR DATABASES 



LDX lt»03 

LDA RANDOM 

AND ll*F0 

ORA lt*0A 

STA PCOLR0,X 

LDA RANDOM 

AND «*F0 

ORA [FIELD, X 

STA COLOR«,X 
DEX 

BPL :3ETl 



[COUNTER. 
[RANDOM It. 
[ZAP LO-NIBBLE. 
(«t W/DECINAL 10. 
(STORE IT. 
(RANDOM It. 
[ZAP LO-NIBBLE. 
(OR W/PLAYFIELD. 
(STORE IT. 
(HANDLE NEXT. 
[ BRANCH! 



LDA 3KSTAT 
AND lt*04 
BEQ [REFCL 

JSR ADITUP 

LDA TQTCEL 
PHA 

LDA tt«0A 
STA TQTCEL 

LDA vtei 

STA LI3TPT 

STA VSTOP 

STA CH 

JSR SHUTUP 

LDA CH 

CMP •»21 

SNE [WAITl 

LDA 3KSTAT 

AND lt«04 

BEQ :WAIT2 

PLA 

STA TOTCEL 

LDA lt*00 

STA LI8TPT 

STA VSTOP 

8TA CH 



[STILL BEING 

[PRESSED? 

(YES-CONTINUE. 

[ADD UP SCORES 

[HOLD « OF 
(CELLS LEFT. 
[MAKE WEIRD 
(SOUND. 

(SWITCH TO 
(TITLE SCREEN. 

[WAIT FOR 
[SPACEBAR. 

( IS SPACEBAR 
[PRESSED? NO. 
(SO WAIT. 
(YES. IS BAR 
(STILL BEINB 
[PRESSED? 

(RE3TQRE It OF 
(CELLS LEFT. 

laUITCH BACK 
(TO PLAYFIELD 
(S< CONTINUE. . . 



REFRESH CELLS (ONE PER PASS) 



LDA It»a0 [CLEAR. 

3TA NOBULL+0 I • OF BULLETS 

STA NOKILLt* [FIRED J> It OF 

STA N0BULL*1 (BACTERIONS! 

STA NOKILL+1 (VAPORIZED. 

STA VSTOP [START VBLANK. 

RTS ( BUB OFF ! ! ! 

» BACTERION! FIRE TIME DATABASE 
FREBSE DB 0,0,0,0,0,0 

• OFFSETS TO TOP fc BOTTOM OF CELL 
CELDT DB 21,36 

» Y-COORDS FOR ESCAPING BACTERION! 
ESCDT DB 10,243 

• COLOR LUM. FOR PLAYERS 8, PLAYFIELD3 

:PLAYC DB iBC, »0C,»aA, »0A 
(FIELD DB »0C, »08,»08, JBA 

• PICK A RANDOM X-COORD. 

PICKX LDA 11100 

JSR RANDO 
CLC 

ADC 1173 
RTS 

» PICK A RANDOM DIRECTION (0-13) 

PICKDR LDA 1116 

JSR RANDO 

STA QEVDIR.X 
RTS 

» PICK A RANDOM • (0 UP TO ACC.) 

RANDO STA HOLDME 

LDA RANDOM 

RANDOl CMP HOLDME 

BCC RANOUT 

L3R A 

LSR A 

JMP RANDOl 

RTS 



DEC CELREF 

BPL BETCEL 

LDA ll»09 

STA CELREF 

LDX CELREF 

LDA CELLMV.X 

BNE BQTCEL 

LDA CELLOX,X 

STA PLQTX 

LDA CELLOY,X 

STA PLOTY 

LDA Itl 

STA COLOR 

LDA It0 

JSR OBJECT 



(OUT OF CELLS 
(TO REFRESH? 
(YES. START 
[ AGAIN. . . 
[BET CELL It TO 
(REFRESH & SEE 
IIF IT MOVES. 

[CELL X-COORD 

% 

[CELL Y-COORD 

[ 

[SPEC. COLOR 

(SPEC. OBJECT 
(DRAW IT... 



DRAW MOVING CELLS (ALL AT ONCE) 



LDA •«09 

STA CELMUM 

LDX CELNUM 

LDA CELLMV, 

BEQ SAVE2 

JSR SHOCEL 

DEC CELNUM 

BPL SAVEl 



(SET UP CELL It 
(TO DRAW. 
(GET CELL ». 
[IS IT BEINB 
[CARRIED OFF? 
(YES. DRAW IT. 

(MOVE ON ro 

[NEXT CELL. 



DRAW V ERASE BACTERION! LASERS 



RANOUT 

HOLDME 
TRY 

: XHOLD 

: YHOLD 

c TITLE 

TEST 



DB [TEMP STORAGE, 
DB (COUNTER. 
DB (X-REQ TEMP STORAGE. 
DB a (Y-REB TEMP STORABE. 
'GET THE GAME 80INQ...' 

PROC 



LDA 11*00 

STA AUDCl 

STA AUDC2 

JSR :3ETP0 

JSR ADITUP 

LDA 11*01 

STA LISTPT 

STA VSTOP 

LDA lt*06 

LDX HHIQH VBL 

LDY »LOW VBL 

JSR 3ETVBV 

LDA lt*07 

LDX #HIGH DBL 

LDY ItLOW DBL 

JSR SETVBV 

LDA lt*C0 

STA NMIEN 

JSR SHUTUP 

LDA DEMO 

CMP »*<ll 

BNE :DEMOX 

INC DEMO 

JSR INIT 



START OF NEW GAME 



[TURN OFF 

[SOUND 

(REGISTERS. 

[SET UP TITLE 

(SCREEN SCORES 

[!i SHOW TITLE 
[SCREEN. 



(SET UP VERT- 
I ICAL BLANK 
(ROUTINES. 
I 

[SET UP DEF. 
I VERTICAL 
(BLANK 
(ROUTINES. 

(SET UP DLI 
[ROUTINES. 



(WAIT FOR PUSH 
(OF START KEY. 



( INITIALIZE. 



LDA 
STA 
LDX 
LDA 
BEG 
BMI 
ORA 
STA 
LDA 
STA 
LDA 
SEC 
SBC 
STA 
STA 
LDA 
SEC 
SBC 
CMP 
BCS 
STA 
STA 
LDA 
AND 
JSR 
JMP 
DEC 
BPL 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
AND 
JSR 
LDX 
LDA 
STA 
DEC 
LDA 
CMP 
BNE 



ll>04 

LSRCNT 

LSRCNT 

LHRDIR, X 

N'/(TL3R 

LASERS 

it*aig 

L3RDIR, X 
»*02 
COLOR 
GEVX, X 

#44 

LASERX, X 
PLQTX 
BEVV, X 

ItklC 

• 192 
LASER6 
LA3ERY, X 
PLOTY 
LSRDIR, X 
»«7F 
OBJECT 
NXTLSR 
LSRTME, X 
NXTLSR 
LASERX, X 
PLQTX 
LASERY, X 
PLOTY 
»*00 
COLOR 
LSRDIR, X 

• »7F 
OBJECT 
LSRCNT 

• *00 

LSRDIR, X 
LSRCNT 
LSRCNT 

• «01 
LA3ER3 



CHECK ALL 
VESSELS. 
13 THIS VES- 
SEL FIRING? 
NO, CONTiWIJc. 
YES. ERASE? 
SET UP LASER 
TO BE ERASED. 
SPECIFY COLOR 
OF LASER. 
GET X-COORD 
OF FIRING 
VESSEL & USE 
AS LASER 
X-COORD. 
BET Y-COORD 
OF FIRING 
VESSEL 8. USE 
AS LASER 
Y-COORD. DO 
NOT FIRE IF 
NOT ON-SCREEN 
ELSE, DRAW 
FIRING LASER 
(DEATH RAY) . 
HANDLE NEXT. 
TIME TO 
ERASE LASER? 
YES. BET X 
COORD !. Y 
COORD FOR 
ERASING. 
SPECIFY COLOR 
AS BCKQROUND. 
NOW ERASE 
LASER. 

TURN OFF 

LASER FOR 

THIS VESSEL. 

HANDLED ALL 
(LASERS? IF 
[SO, QUIT. 
[ELSE GO BACK. 



LDA DEMO 

CMP •»02 

BNE TEST 

GAME PAUSED? 

LDA CH 

CMP »«21 

BNE : REFCL 



(CHANGE STATUS 
[OF 'DEMO' 
(VARIABLE 



( IS SPACEBAR 
[PRESSED? 
[YES. IS BAR 



DRAW Si ERASE PROJECTILES 

LDX ^17 (HANDLE ALL. 

LDA CELLMV, X [IS THIS BULLET 

BED PR0J6 [ACTIVE? 

LDA CELLOX,X [YES. GET X 

STA PLQTX [COORD. 

LDA CELLOY,X (BET Y-CDQRD. 

STA PLOTY (OF BULLET. 

LDA »»«0 (SET UP TO ERASE 

3TA CELLMV.X [THIS BULLET. 

STA COLOR [SPECIFY COLOR. 

STX (XHOLD (SAVE X-REQ. 

JSR PLOTPT (ERASE IT NOW! 

LDX (XHOLD [RESTORE X-REB. 

LDA CELLNX, X [BET NEW BULLET 

STA CELLQX.X [X-COORD >. PRE- 

STA PLOTX [PARE TO PLOT. 

LDA CELLNY, X (GET NEW BULLET 

STA CELLOY.X IY~COORD S< PRE- 

3TA PLOTY (PARE TO PLOT. 

LDA »*03 (SPECIFY COLOR 

STA COLOR [OF NEW BULLET. 

STX (XHOLD (SAVE X-REB. 

JSR PLOTPT (DRAW NEW BULLET 

LDX (XHOLD (RESTORE X-REB. 

DEX (MOVE ON TO NEXT 

CPX lt*09 [BULLET. IF NONE 

BNE PR0J5 [LEFT, QUIT. 

ALL CELLS GONE? 
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ISSUE 20 



LDA TOTCEL 
BPL GAMEl 
aSR 3HUTUP 
LDA «»ai 
3Tfl VSTOP 



[TOTAL • OF 
(CELLS < e? 
IVES. SOUND OFF. 
I3TQP ALL SCREEN 
lACTIQN. 



STA RTCLOK^^Z I SET UP TO 

LDX RTCLOK+l I PAUSE FOR 
I N X "- - ' 

CPX RTCLOK+1 

BNE HALT 

JMP TEST 



(SOME TIHE. 
> IS PAUSE DQNE7 
I NO. WAIT. 
lYES. RESTART. 



•BACTERION!* DESTROYED OR OFF SCREEN? 



LDA QEVE8C 

CMP «»a3 

BEQ BAMEE 

OMP SAVEa 



I IS NUMBER OF 
I ESCAPED VESSELS 
I EQUAL TO THREE? 
I NO. BO BACK. 



JSR ADITUP lADD UP SCORES. 

INC TYPES ISET UP NEXT TYPE 

LDA TYPES lOF ATTACKING 

CMP Intel IBACTERION. 

BCC BAME2 I 

LDA RANDOM (SET RANDOM 

AND »*F0 I BACKGROUND 

STA C0L0R4 (COLOR. 

FLIP TO TITLE SCREEN 

LDA «»Bl I STOP ALL SCREEN 
STA VSTOP (ACTION «i FLIP 
STA LISTPT (TO TITLE SCREEN 

JBR SHUTUP (SOUNDS OFF. 
LDA TOTCEL [SAVE TOTAL (t 
PHA (OF CELLS LEFT. 

LDA **0A [MAKE UEIRD 
STA TOTCEL (TITLE SOUND. 

STA RTCL0k: + 2 (PAUSE FOR A 
LDX RTCLOK-H (WHILE. 
INX ( 



: PAUSE 


CPX 


RTCLOKtl 


(PAUSE TIME UP7 




BNE 


: PAUSE 


[NO. WAIT. 




PLA 




(RESTORE TOTAL « 




STA 


TOTCEL 


(OF CELLS LEFT. 




LDA 


*»0l!l 


[FLIP TO SAME 




STA 


LISTPT 


(SCREEN S< BEGIN 




STA 


VSTOP 


[SCREEN ACTION. 




STA 


CH 






STA 


X30UND 






STA 


CSOUND 






STA 


LaOUND 




• SPEED 


UP BACTERION 


• MOVE^TURN RATES 




LDX 


»*()S 


[UPDATE ALL. 


FASTI 


LDA 


MOVEDB, X 


( IS MOVE RATE AT 




CMP 


«>02 


[LOWEST LEVEL? 




BCC 


FA3T2 


[YES, CONTINUE. 




DEC 


MOVEDB, X 


(NO. DECREMENT. 


FAST2 


LDA 


TURNDB X 


( 13 TURN RATE AT 




CMP 


(•08 


(LOWEST LEVEL? 




BCC 


FAST3 


(YES, CONTINUE. 




SEC 




(NO. DECREMENT. 




SBC 


• *04 


( 




STA 


TURNDB, X 


[ 


FAST3 


DEX 




(UPDATE NEXT. 




BPL 


FASTI 


( 



LDA «»01 

STA TYPES 

STA TYPE«2 

STA TYPE+3 

STA TYPE+4 



(MAKE ATTACKING 
(BACTERION! THE 
(SLOWEST TYPE 
(FDR DEQINNINQ 
[OF NEW WAVE. 



SET UP FOR NEXT ATTACK 



JSR INIT2 
JMP SAVE0 



( INITIALIZE. . . 
[BEGIN AGAIN. 



VERTICAL BLANK ROUTINE 



CLD 

LDA LISTPT 



ASL 


A 


TAX 




LDA 


: L3TDB+B 


STA 


3DLSTLt0 


LDA 


: LBTDB+1 


STA 


SDLSTL-H 


LDA 


:DLIDB+0 


3TA 


VD3L37+0 


LDA 


: DLIDB+1 


STA 


VDSLST*! 


LDA 


• •00 


STA 


HPOSP0 


STA 


HPOSPl 


STA 


HPOSr'2 


8TA 


HP0SP3 


STA 


HPOSM0 


STA 


HPOBMI 


STA 


HP0SM2 


STA 


HP0BM3 i 


LDA 


VSTOP 1 


BNE 


XITVBL 1 



(CLEAR DECIMAL 
(RESEED 
(DISPLAY LIST 
(VECTORS ACC- 
[OPDINQ TO 
( 'LISTPT' 
(VARIABLE. 
(DO THE SAME 
(THINS FOR 
IDLI VECTORS. 



[MAKE ALL PLAYER/ 
[MISSILE X-COORDS 
[EQUAL TQ ZERO. 
[THIS PROVIDES A 
[NICE BORDER AT 
[THE SCREEN TOP. 
[THE DLIB HANDLE 
[PROPER PLACEMENT 
(DP X-COORDS. 

[ 13 SCREEN ACTION 
( HALTED? 



KILL ATTRACT MODE 
STA ATRACT 
FLASH CELLS 



LDA COLOR0 

ADC ««10 
STA COLOR0 



[KEEP SAME LUM. 
[BUT UPDATE 
[ COLOR. 



BACTERION! ATTACK STRATEGY 



LDA #»a4 

STA BEVNUM 

JSR 3TRAT 

DEC BEVNUM 

LDA GEVNUM 

CMP •»ai 

BNE VBL2 



[ALL VESSELS 
(ATTACK ! 
[NASTY ROUTINE! 
(NEXT VESSEL 
(ATTACKS! 
[ALL DONE? 
[IF NOT, CONT. 



TURN ENEMY BACTERION! 1 

JSR TURN 

MOVE ENEMY BACTERION! 1 



JSR MOVE 

JMP SYaVBV 

DEF. VERTICAL BLANK 

CLD [CLEAR DECIMAL 

READ CONSOLE BUTTONS 

JSR BUTTON 

PULSE SOUND 

JSR PULSE 



LDA VSTOP 
BNE XITDBL 



[ALL SCREEN 
(ACTION HALTED? 



READ JOYSTICKS l< MOVE PLAYERS 



JSR STICKS 
JBR SHOOT 



[PLAYERS MOVING 
(PLAYERS FIRING 



DON'T LET ANYONE GO OFF SCREEN 

JSR BOUNDS 
DID ANYBODY RUN INTO ANYBODY? 

JSR COLLIDE 
KEEP TRACK OF HEISTED CELLS 

JSR TRACK 

BACTERION! LASER SOUND 

JSR ZAP 

PLAYER'S CANNON SOUND 

JSR CANNON 

DETONATION SOUND 

JSR BOOM 

DRAW PLAYERS i< BACTERION!* 

JSR DRAW 
- JMP XITVBV [ALL DONE. 

PULSE SOUND ROUTINE 



PULRTS 
SOUNDS 



REG 

FLIP 

L3RCNT 



LDX TOTCEL 

BHI PULRTS 

LDA FREQS.X 

8TA FREO 

LDA DELS,X 



(GET TOTAL « OF 
(CELLS LEFT. 
(GET ASSOCIATED 
(PULSE FREQUENCY 
(& SOUND DELAY 



STA SDElAy+1 [TIME. STORE IT. 



LDX FREQ 

3TX AUDFl 

INX 

STX AUDF2 

LDA SDELAY 

BEQ SOUNDS 

DEC SDELAY 

LDA SDELAY+1 

STA SDELAY 

INC FLIP 

LDA FLIP 

AND »»ei 

TAX 

LDA REG.X 

STA AUDCl 

STA AUDC2 

RTS 

DB *00,*A4 
DB 
DB 



[STORE PROPER 
(FREQ. INTO 
(SOUND REGS. 1 
[AND 2. 

[DECREMENT DELAY 
(TIMER IF NON 
I ZERO. 
(RETURN. 
[RESTORE DELAY 
(TIME IF ZERO. 
(TOGGLE PULSE 
(SOUND GENERATOR 
[ (IF OFF, TURN 
[ON. IF ON, TURN 
(OFF. ) S. STORE 
(INTO PROPER 
(AUDIO CHANNEL 
[REGISTERS. 

(AUDIO OFF/ON 
[FLIP/FLOP VAR. 
(LASER COUNTER. 



PULSE SOUND FREQUENCIES 

DB 160,170,180,190,200 

DB 210,220,230,240,230,140 

PULSE SOUND DELAYS 

DB 02,04,06,08,10,12.14 
DB 14,18,20,01 

BACTERION! LASER SOUND 



LDX LSOUND 

BEQ ZAPOFF 
DEX 

DEC LSOUND 

LDA LFTBL,X 

STA «l,IDF3 

LDA I.CIBL.X 

STA AUDC3 
RTS 



[IS SOUND ON? 
[NO. QUIT! 
[ YES. 

(GET PROPER 
(FREO. AND STORE 
[ INTO REGISTER. 
I BET PROPER CHHN. 
I AND STORE. 
(ALL DONE. . . 



BACTERION! LASER FREQUENCIES 

DB 234 216, 197, 177, 137 
DB 138, ll8,99, 79;39,4e, 20, 1 

BACTERION! LASER CHANNELS 

DB »00, •A2, •A2, •A2, •A2, »A4 
DB *A4,*A4 •A4,*A4,«A4 •A6 
DB •A6,»A6 

PLAYER'S CANNON SOUND 



( IS SOUND ON? 
[NO. QUIT. 
(YES. GET PROPER 
(FREQUENCY & 
[STORE INTO REG. 
[GET PROPER 
[CHANNEL i, STORE 
I INTO REG. 
[ ALL DONE. . . 



LDX CSOUND 

BEH CANOFF 
DEX 

DEC CSOUND 

LDA CFTBL.X 

STA AUDF4 

LDA CCTBL,X 

STA AUDC4 
RTS 



CANNON FREQUENCIES 

DB 0,234,212,170,127,83,43, 

CANNON CHANNELS 

DB (ee.tAa, tAS, *A8, »A8, >Aa 
DB «AS,SAB 

DETONATION SOUND 



LDX XSOUND 

BEQ BOMOFF 
DEX 

DEC XSOUND 

LDA XFTBL, X 

ST« AUDF3 

LDA XCTBL.X 

STA AUDC3 
RTS 



( IS SOUND ON? 
(NO. CONTINUE. 
[YES. BET PROPER 
[FREQ. AND STORE 
I INTO SOUND 
(REGISTER. 
[GET PROPER 
(CHANNEL 8. STORE. 
(ALL DONE. . . 



DETONATION FREQUENCIES 

DB 0,233,249,243,241,237,234 

DB 230, 226,222, 218,214,211 

DB 207,203,199,193,191,188 

DB 184,180,176,172,168,165 

DB 161 , 137, 133, 149, 143 142 

DB 138,134,130,126,123,119 

DB 113,111,107,103,100,96,92 

DB 88,84,80,77,73,69,63,61,37 

DB 34,30,46,42,38,34,31,27,23 

DB 19,13,11,08,04 

DETONATION CHANNELS 



XCTBL 


DB 


*00,*eA, 


,*eA,«eA,»eA,«aA 




DB 


•8A, *aA 


, taA.taA, tsA, »et\ 




DB 


»aA, »aA, 


, VSA, «aA, «aA, *8A 




DB 


•SA.tSA 


, «8A, •BA, »BA, »afl 




DB 


»8A, »8A, 


, vaA, •OA, •BA, «8A 




DB 


•8A, tSA, 


,»8A, »8A,»SA,«aA 




DB 


»8A, >0A, 


, »aA, •BA, »BA,^SA 




DB 


*eA,*aA, 


, (OA, (BA, taA.^BA 




DB 


•BA, *8A, 


, •BA,^aA, •aA,»aA 




DB 


*8A,«SA, 


•8A, «SA, *SA,^SA 




DB 


•SA,*8A, 


•8A, »SA, •SA,»aA 


• 


READ CONSOLE BUTTONS 


BUTTON 


LDA 


C0N30L 


(CONSOLE SWITCH. 




CMP 


«»07 


(IS IT PRESSED? 




BEQ 


(ACTVE 


(YES, CONTINUE. 




STA 


:prev 


(NO. SAVE IT. 




RTS 




(RETURN. 


: ACTVE 


LDA 


: prev 


(BET CONSOLE VALUE 




CMP 


»«06 


(START BUTTON ON. 




BEQ 


: START 


( 




CMP 


»*03 


(SELECT BUTTON ON. 




BEQ 


:SELCT 


( 




CMP 


*»03 


(OPTION BUTTON ON. 




BEQ 


:OPTON 


( 




RTS 




(CONFUSED! RETURN. 


# 


START KEY PRESSED!!! 


(START 


LDX 


• *01 


[GAME START. UP- 



JMP :ENDBT (DATE STATUS. 

SELECT KEY PRESSED''! 

INC NOPLAY [UPDATE » OF PLAY- 

LDA NOPLAY [ERS. (1 OR 2) 

AND (••01 (SAVE IN 'NOPLAY' 

STA NOPLAY (VARIABLE. 



:aETP0 


LDX 


• 19 




(CLEAR PLAYERS' 




LDA 


• 00 




[SCORE LINES 


: SETPl 


STA 


PLAYRl , 


X 


[BY PLACING 




STA 


PLAYR2, 


, X 


(BLANKS IN ALL 




DEX 






(P03ITI0N3. 




BPL 


:8ETP1 




( 




LDX 


NOPLAY 




(GET • PLAYERS. 




LDA 


: PLINE, 


,x 


(DECIDE HOW MANY 




TAX 






[CHARACTERS TO 


:SETP2 


LDA 


: LINEl , 


X 


[USE FOR PLAYER 




STA 


PLAYRl , 


X 


[SCORE LINE li 




LDA 


:line2. 


X 


( INSTALL INTO 




STA 


PLAYRZ, 


X 


(PLAYER SCORE 




DEX 






(LINE. CONTINUE 




BPL 


: SETP2 




(UNTIL DONE. 




JMP 


(ENDBT 






(OPTON 


INC 


STRUCT 




(CHANGE STRUCT- 



LDA STRUCT ( URE OF INITIAL 

CMP ••03 [CELL PATTERN. 

BC3 :OPTON (RANGE: B-2. 

LDX ••00 

:ENDBT STX DEMO [UPDATE 'DEMO' 

STX :PREV (UPDATE PERVIOUS 
RTS (ALL DONE. . . 

:PREV DB [OLD CONSOLE VALUE. 

(PLINE DB 10,19 (SCORE LINE CHARA- 
[CTERS PER PLAYER. 

» PLAYER 1 /PLAYER 2 SCORE LINE 

(LINEl DB 176 172, 161 , IBS, 163, 178 
DB 00, »D1 , 00, 00,00, 00, 176 
DB 172, 161 , 183, 165, 178, 00, •D2 

• 000000/000000 SCORE LINE 

:LINE2 DB 00, »50,»30,^30,»30,»30,»50 
DB 00,00,00,00,00,00 
DB •30, •S0,i50, •Se, •30,^30,00 

• ADD UP SCORES 



ADITUP 


SEO 






ISET DECIMAL. 




LDX 


NOPLAY 




(• OF PLAYERS. 


CALC4 


LDY 


NOKILL, 


. X 


(• OF KILLS FOR 




BEQ 


CALCX 




(THIS PLAYER. 


CALC3 


LDA 


TYPES 




(BACTERION! TYPE 




ASL 


A 




( ( 1 TO 6) IS 




ASL 


A 




(MULTIPLIED BY 




ASL 


A 




1 10 i ADDED TO 




ASL 


A 




(PLAYERS' SCORE 




CLC 






( 




ADC 


SC0RE3, 


X 


( 




STA 


3C0RE3, 


X 


[ 




LDA 


• •00 




(OVERFLOW 




ADC 


3C0RE2, 


. X 


[ CORRECT ION. 




STA 


SC0RE2, 


, X 


[ 




LDA 


• »00 




(OVERFLOW 




ADC 


SCORE 1 , 


, X 


[CORRECTION. 




STA 


SCOREl ! 


. X 


( 




DEY 






[HANDLED ALL 




BNE 


CALC3 




(KILLS? 


CALCX 


DEX 






(HANDLED ALL 




BPL 


CALC4 




(PLAYERS? 


« 


DISPLAY SCORES 




LDX 


• *0S 




(SIX DIGITS. 


CALC6 


LDY 


NOPLAY 




(• OF PLAYERS. 



ISSUE 20 
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PAGE 45 



TXft 




) 


AND 


SCMASK, 


Y SAND IN SCORE 


TAX 




1MA3K S. GET 


LDA 


3C0RE1, 


X ISCORE DiaiT. 


PHA 




I HOLD IT. 


AND 


»*0F 


(PLACE -S- IN 


ORA 


• *30 


IHIOH NIBBLE. 


LDY 


PUT3CR, 


X IFIND WHERE TO 


STA 


PLAYR2-H.Y JPUT S< DO 30. 


PLA 




(RESTORE DIBIT 


L3R 


A 


I& SHIFT INTO 


LSR 


A 


tLOW-NIBBLE. 


L3R 


A 


f 


LSR 


A 


IPLACE 'S- IN 


ORA 


«*30 


(HIBH-NIBBLE 


STA 


PLAYR2, 


Y ISc STORE. 


DEX 




! IF NOT DONE, 


BPL 


CALC4 


ICDNTINUE. 


• ADD 


UP TEAM 


SCORE 


CLC 




(CLEAR CARRY 


LDX 


• *04 


(LOOP VAR. 


LDY 


«*02 


(LOOP VAR. 


CALC7 LDA 


SCOBEl , 


X (ADD UP CON- 


ADC 


SCOREl+l.X ISECUTIVE 


STA 


T8CRl,Y 


( SCORES t, 


DEX 




(STORE INTO 


DEX 




(TEAM SCORE 


DEV 




(VARIABLES. 


BPL 


CALC7 


[CONTINUE. 


» DISPLAY TEAM SCORE 


LDX 


»*02 


(THREE BYTES. 


CfiLCa LDY 


PUTTME, 


X (WHERE TO PUT. 


LDA 


TSCRl , i 


(TEAM SCORE. 


PHA 




(HOLD IT. 


AND 


»»BF 


(PUT -S- IN 


ORA 


**30 


(HI-NIBBLE. 


STA 


TEAMS*! 


,Y (STORE DIBIT. 


PLA 




(RESTORE IT. 


LSR 


A 


(SHIFT HI- 


LSR 


A 


(NIBBLE TO LO- 


LSR 


A 


(NIBBLE. 


LSR 


A 


(PUT ■ S- IN 


ORA 


»»30 


(HI-NIBBLE. 


STA 


TEAM2, Y 


(STORE IT. 


DEX 




( IF NOT DONE, 


BPL 


CALC8 


(CONTINUE. 


CLD 




(CLEAR DECIMAL 


RTa 




(ALL DONE. . . 


• TURN 


OFF SOUND 


SHUTUP LDA 


»*0e 


(DEACTIVATE 


STA 


AUDC3 


(SOUND RESI3TERS 


STA 


AUDC4 


( 3 & 4. 


STA 


L30UND 


(DEACTIVATE 


STA 


XSOUND 


(EXPLOSIONS, 


STA 


CSOUND 


■ CANNON «. lAsERS. 


RTS 




( ALL DONE. . . 



dli routines 

OftME BOARD DLIs 



DLI CLD 




(CLEAR DEC. 


PHA 




(SAVE ACC. 


LDA 


BEVX*«1 


(SET X-C00RD8 


STA 


HPOSP« 


(OF ALL ACTIVE 


LDA 


BEUX-l-l 


(VESSELS S( 


BTA 


HP09PI 


(STORE INTO PM 


LDA 


BEVXt-2 


(HORIZONTAL 


STA 


HP03P2 


(RESISTERS. 


LDA 


QEVX+S 


( 


STA 


HP03P3 


( 


LDA 


SEVX*4 


( 


STA 


HP0SM3 


( 


CLC 




( 


ADC 


«*02 


( 


3TA 


HP0SM2 


( 


CLC 




( 


ADC 


• •B2 


( 


STA 


HPQSMl 


( 


CLC 




( 


ADC 


• *02 


( 


STA 


HPO3M0 


( 


LDA 


•LOW DLI2 


(SET UP FOR 


STA 


UD3LST 


(NEXT DISPLAY 


LDA 


»HIQH DLI2 


(LIST INTER- 


STA 


VDSLST-H 


(RUPT REQUEST. 


PLA 




(RESTORE ACC. 


RTI 




(ALL DONE... 


DLI2 PHA 




(SAVE ACC. 


LDA 


»*0e 


(MAKE X-CO0RD3 


STA 


HPOSPB 


(OF ALL ACTIVE 


STA 


HPOSPl 


(VESSELS EQUAL 


STA 


HP0SP2 


(TO ZERO. THIS 


STA 


HP0SP3 


(PROVIDES A 


STA 


HPOSMa 


(NICE BORDER 


STA 


HP03M1 


(AT THE 


STA 


HP0SM2 


I BOTTOM. 


STA 


HP0SM3 


( 


PLA 




(RESTORE ACC. 


RTI 




( ALL DONE. . . 


• TITLE SCREEN DL I « 




DLI DLI PHA 




(SAVE ACC. 


TXA 




(SAVE THE 


PHA 




1 X-REQ. 


LDX 


»»07 


(LOAD X-REQ. 


LDA 


DSHIFT 


(OKAY, NOW 


STA 


CSHIFT 


1 I-LL LET 


DLIXX LDA 


C3HIFT 


(YOU BUYS 


STA 


USYNC 


IFIBURE OUT 


STA 


COLPFa+1 


IHQU I QOT 


LDA 


CSHIFT 


[ THAT SUPER 


CLC 




(DUPER STU- 


ADC 


• *02 


I PENDOUS 


STA 


CSHIFT 


(FANCY 


DEX 




(COLOR CHAN3E 


BPL 


DLIXX 


[ (SO THERE! ) 


LDA 


•LOW DLIXY 


1 SET UP FOR 


STA 


UD3L3T+e 


(NEXT DLI 


LDA 


•HIQH DLIXY ( (IF YOU 


STA 


VD3L3T1-1 


(DON-T MIND). 


DEC 


BLAH 


(DEC TIMER. 


BPL 


DLIZZ 


( BRANCH ! 


LDA 


STRUCT 


[RESET 


STA 


BLAH 


[ TIMERS. 


INC 


BLAH 


( INCREMENT 


ASL 


BLAH 


{ 8< SHIFT 


INC 


DSHIFT 


IREB13TERS. 


DLIZZ PLA 




(RESTORE 


TAX 




( X-REB. 


PUA 




(RESTORE ACC. 


RTI 




(LATER Y'ALL! 



: XHOLD 
CSHIFT 
DSHIFT 
BLAH 

(LSTDB 



PHA 

LDA COLORBtl 

STA COLPF0-H 

PLA 

RTI 



DB 
DB 
DB 
DB 

DW 
DW 

DW 
DU 



(SAVE ACC. 
(RESTORE OLD 
(COLOR REB. 
[RESTORE ACC. 
[LATER Y'ALL' 

IX-REQ. TEMP. 
(COLOR SHIFT. 
(COLOR SHIFT. 
(DUM TIMER. 



DLIST (LO/HI DISPLAY 
DLIST2 (LIST BYTES. 



DLI (LO/HI DLI 
DLIDLI [BYTES. 



PLAYER SCORE PLACEMENT BYTES 

DB 1 , 13,3, 15,5, 17 

TEAM SCORE PLACEMENT BYTES 

DB 7,9,11 

SCORE PLACEMENT MASKS 

DB »eE,»0F 

■OUT OF BOUNDS CHECK- 



BOUNDS PROC 



LDX (t»«4 (CHECK EVERYBODY 
CHECK Y-COORDS 



CPX »»02 

BC3 CHECKX 

LDA BEVY.X 

CMP LOWY 

BCS BOUNDS 

LDY QEVDIR.X 

LDA REFLEY.Y 

STA OEVDIR.X 

JSR M0V3UB 

JMP CHECKX 

CMP HIBHY 

BCS B0UND4 



CHECK X-COORDS 



(A BACTERIONV 
( IF BO LEAVE IT. 
( IS PLAYER OUT 
(OF BOUNDS? 
(NO, CONTINUE. 
(OUT OF BOUNDS! 
(BET REFLEX 
lANBLE S. STORE. 
(MOVE ONCE MORE 
[!i CHECK X-COORD 
I BOUNDARY. 



CHECKX LDA 

CMP 
BCS 

80UND6 LDY 
LDA 
STA 
JSR 
JMP 

B0UND7 CMP 
BCS 

CHECKY DEX 
BPL 
R13 

LOWX DB 

LOWY DB 

HI3HX DB 

HIBHY DB 



BEVX, X 

LOWX 

B0UND7 

BEVDIR, X 

REFLEX, Y 

BEVDIR, X 

MOVSUB 

CHECKY 

HIBHX 

BOUNDt 

B0UND3 



[OUT OF BOUNDS 
I ON X-CQ0RDS7 
[NO, CONTINUE. 
I OUT OF BOUNDS! 
[BET REFLEX 
[ANBLE S< STORE. 
[MOVE ONCE MORE 
1% CHECK NEXT. 



(CHECK NEXT 
(VESSEL. 
(ALL DONE. 

44 (LOWEST X-COORD 

32 (LOWEST Y-CQORD 

2«a ( HIGHEST X-COORO 

213 [HI0HE3T Y-COORD 



« REFLEX DIRECTIONS FOR Y-COORDS 

REFLEY DB B8 , 07 , B6 , 03 , B4 , 03 , B2 , Bl 
DB 00,15,14,13,12,11,10,09 

« REFLEX DIRECTIONS FOR X-COORDS 

REFLEX DB 00,15,14,13,12,11,10,09 
DB 08,07,06,05,04,03,02,01 



TITLE -TITLE SCREEN DISPLAY LIST' 

DLIST2 DB «70, »70,»70, •70, ♦46 
DW PLAYRl 
DB *46 
DW PLAYR2 

DB «70, *70, •70,*F0,»46 
DW TITLE 
DB «B0,«46 
DW TITLE2 
DB »30.»46 
DW NAMEl 
DB «20.«46 
DW NAME2 
DB •20,»46 
DW NAME3 
DB •2e,*46 
DU NAME4 
DB »70,»7B,»46 
DH NAME5 
DB •7B,»7B,»46 
DU TEAHl 
DB (46 
DW TEAM2 
DB »41 
DW 0LIST2 



TITLE -BACTERION! 9TRATEBY ROUTINE' 



LDX BEVNUM [BACTERION • 
SHOULD BACTERION! ATTACK PLAYER? 



LDA STOP.X 

BEQ :CONT 

LDA BEVCEL, 

BMI :C0NT2 

LDY NOPLAY 

LDA STQP.Y 

BNE (CONTl 

LDA BEVX.X 

SBC SEVX,Y 

JSR AB3 

CMP FRANBE 

BCS (CONTl 

LDA BEVY,X 
SEC 



( IS BACTERION 
( IN A COMA? 

QUIT! 

IN TOW? 
QUIT ! 
(« OF PLAYERS. 
(THIS PLR ICED? 
(YE3! CONTINUE! 
( IS X-COORD OF 
[PLAYER WITHIN 
[ATTACKING 
(RANQE? 
I 

(NO! QUIT! 
( IS Y-COORD OF 
[PLAYER WITHIN 



(YES! 
(CELL 
( YES! 



(CONTl 
:C0NT2 



AXIS4 
AXIS3 



AXIS6 
AXI37 



QUAD12 
QUAD 13 



SBC 
JSR 
CMP 
BCS 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
BNE 
DEY 
BPL 
LDA 
STA 
LDA 
STA 
LDA 
STA 



BEVY, Y 
ABS 

FRANBE 
(CONTl 
BEVX, Y 
: TARX 
BEVY, Y 
:TARY 
LASERS 

u«a> 

3TRATZ 

: caNT0 

TARX, X 
: TARX 
TARY, X 
:TARY 
• *00 
ATTACK. 



(ATTACKING 

IRANBE7 

( 

(NO! QUIT! 

(PLR X-COORD IS 

(TARBET X-COORD 

[PLR Y-COORD IS 

I TARGET Y-COORD 

(SCRAP PLAYER! 

I KABOOM' ' ' 

[ 

(CHECK NEXT 

[PLAYER. IF ANY. 

[SAVE TARGET 

( X-COORD. 

[SAVE TARGET 

[Y-COORD. 

( 

(ATTACK STATUS 



FIND THE MARK 

AXIS TESTS 

LDA (TARX [IS THE TARBET 

CMP BEVX.X [(RELATIVE TO 

BEQ AXI33 [ATTACKINB 

BCS AXI37 (BACTERION) 



LDA :TARY 

CMP BEVY.X 

BNE 0XIS4 

LDA ••04 

BNE QUIT 

BCS CiUAD3 

BCC QUAD2 

LDA :TARY 

CMP GEVY.X 

BEQ EXIT 

BCS AX1S6 

LDA »*00 

BEQ QUIT 

LDA ••0S 

BNE QUIT 

LDA :TARY 

CMP BEVY.X 

BNE AXISB 

LDA »12 

BNE QUIT 

BCS QUAD4 

BCC QUADl 



(ON THE X 

(OR Y AXIS? THAT 

( IS THE QUESTION ! 

[WHO EVER HEARD 
[OF CENSORING 

(ASSEMBLY LAN- 
(QUA8E LISTINGS? 

(BACTERION! 13 
(DEDICATED TO MY 
(FRIENDS IN aOOD 
(OLD TEANECK. . . 

) IN CASE YOU 
[PEOPLE DON'T 

(KNOW WHO YOU ARE, 
(HERE'S A LIST 

(OF CODE-NAMES. . . 

(31R HEX 

(THE QUAB RUNNER 

(THE SILICON 
[PIRATE 

ITAI-FIQHTER * 
(HOME BOY ROGER D. 



FIRST QUADRANT 

JSR DELTAS ( 

BEQ QUAD12 I 

BCC QUflD13 (WE KNOW THE TAR- 
(BET IS IN THE 
(1st QUAD. DECIDE 
ION A DIRECTION. 
1 (13,14, 13) 



LDA »IZ 

BNE QUIT 

LDA •14 

BNE QUIT 

LDA »13 

BNE QUIT 



SECOND QUADRANT 

JSR DELTAS I 
BEQ aUAD22 I 
BCC QUflD23 [WE KNOW THE TftR- 



[ 

(BRANCH! 





LDA »03 


(BET IS IN THE 




BNE QUIT 


[Znd QUAD. DECIDE 


0UAD22 


LDA •BZ 


ION A DIRECTION. 




BNE QUIT 


( <1 ,2,3) 


aUAD23 


LDA ttBl 


! 




BNE QUIT 


[BRANCH! 


» 


THIRD QUADRANT 


aUAD3 


JSR DELTAS 
BEQ QUAD32 


1 
[ 




BCC QUAD33 


[WE KNOW THE TAR- 




LDA «B3 


[BET 13 IN THE 




BNE QUIT 


(3rd QUAD. DECIDE 


Q1JAD32 


LDA •B6 


(ON A DIRECTION. 




BNE QUIT 


1 (3,6, 7) 


QUAD33 


LDA »e7 


[ 




BNE QUIT 


[BRANCH! 


» 


FOURTH QUADRANT 


QUAD4 


JSR DELTAS 
BEQ QUAD42 


[ 
( 




BCC QUAD43 


(WE KNOW THE TAR- 




LDA •ll 


(BET IS IN THE 




BNE QUIT 


(4th QUAD. DECIDE 


aUAD42 


LDA •IB 


ION A DIRECTION. 




BNE QUIT 


( (9, IB, 1 1 ) 


QUAD43 


LDA »B1 


I 




BNE QUIT 


(BRANCH! 


EXIT 


LDA •»FF 


(TARGET REACHED 


QUIT 


STA 8EVDES 


X (SAVE DESIRED 




RTS 


(DIRECTION. BYE! 


• 


CALCULATE COORDINATE DELTAS 


DELTAS 


LDA (TARY 


(TARBET Y-COORD, 




SEC 


[SUBTRACT FROM 




SBC BEVY, X 


[BACTERION Y-CORD. 




JSR ABS 


(ABSOLUTE VALUE. 




STA (DELTA 


[SAVE IT. 




LDA (TARX 


(TARBET X-COORD. 




SEC 


(SUBTRACT FROM 




SBC 8EVX,X 


(BACTERION X-CORD. 




JSR ABS 


(ABaOLUTE VALUE. 




CMP (DELTA 


(COMPARE TO Y 




RTS 


[DELTA «. RETURN. 


» 


TURN ENEMY 


BACTERION! • 


TURN 


DEC TURNT 


[TINE TO TURN? 




BPL TRTS 


[NO! LATER! 




LDX TYPES 


[RESTORE TURN 




LDA TURNDB 


-1,X [TIME FROM 




STA TURNT 


[TURN DATABASE 




LDX ••|94 


[HANDLE ALL. 


TURN0 


LDA STOP.X 


(VESSEL ICED? 




BNE PL4 


[YES! LATER! 



LDA »*»3 [SET RANDOM AMOUNT 
JSR RANDO (FOR DIRECTIONAL 
TAY (TURN. 
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LDA 


BEVDES, X 


IDE3IRED DIRECTION 




CMP 


bevdirIx 


(ACTUAL DIRECTION. 




BEQ 


PL4 


1 IF • OUIT ! 




BCS 


TURNBS 


lACT. > DES. 




JSR 


aUBDIR 


ISUB. THE TWO. 




CMP 


ll*0B 


I IB DIFF. > 87 




Bca 


TURN86 


lYES! BRANCH! 


TURNS4 


TYfl 




(INVERT AMOUNT 




EQR 


• »FF 


lOF TURN (HAKE 




TftY 




(IT NEGATIVE) 




I NY 




1 




BMI 


TURN86 


(BRANCH! 


TURNQ3 


JSR 


8UBDIR 


(3UB. THE TWO. 




CMP 


• •0S 


(IF DIFF. > 87 




BEQ 


TURNB6 


(DIFF = 8; 




BC3 


TURNQ4 


(DIFF > 8! 


TURNQ4 


TYA 




(ADD AMOUNT OF 




CLC 




(TURN TO BAC- 




ADC 


QEVDIR.X 


(TERI0W8 DIR- 




JBR 


WRAP 


(ECTION & SAVE. 




BTA 


BEVDIR, X 


( 



LDA :ADDY (ADD Y-COORD ADO 

CLC (ON FOR 8IVEN 

ADC CELLNY.Y [DIRECTION TO 

STA CELLNY.Y (CELL'S Y-COORD. 

LDA »*0l (CELL MOVEMENT 

STA CELLMV.Y (STATUS SET. 

nOVI RTS (SEE YA LATER... 

• VAPORIZE PLAYERS WITH DEADLY LASERS 



INC 8EVESC 

DEX 

BPL PH34 



(NO! INC • OF ESCAPES 
(MOVE ON TO 
( NEXT 



DRAW? RTS (TIME TO B003IE.., 



PL4 DEX (TURN NEXT 

CPX ••HI (BACTERION! 

BNE TURNa (IF ANY. 

TRT3 RTS IDOOGIE QUTTA HERE! 

SUBDIR LDA QEVDES.X (DESIRED 

SEC (SUBTRACTED FROM 

SBC BEVDIR, X (ACTUAL 

JMP AB3 (ABSOLUTE VALUE. 

• MOVE ENEMY BACTERION!» 



DEC 
BPL 
LDA 
STA 
LDA 
BNE 
LDA 
PHA 
JSR 
TAY 
PLA 
STA 
CPY 
BEQ 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 



BEVFRE, X 

XITLSR 

FIRETM 

8EUFRE,X 

LSRDIR, X 

XITLSR 

SEVOES, X 

8TRAT3 



OEVDES, X 

»»FF 

XITLSR 

L8RBSE, Y 

LSRDIR, X 

»*0A 

LSRTME.X 

«14 

LSOUND 



(FIRE TI 
(NO! QUI 
(RESTORE 
(TIMER. 
(ALREADY 
(YES! OU 
( SAVE DE 
(DIRECTI 
(OET LAS 
(PUT I 
(RESTORE 
(DIRECTI 
(LASER A 
(YES! QU 
(FINE TU 
(DIRECTI 
(LASER B 
(LIFETIM 
(SET UP 
(SOUND. 
(JUMP IN 



MER - I!I7 
T! 
FIRE 

FIRINa? 
IT! 
SIRED 
ON. 

ER DIRECTON. 
Y-REO. 

DESIRED 
ON. 

T TARGET? 
IT! 

NE LASER 
ON. 
OLT 
E. 
LASER 

A LAKE! 



COUNT 

CDUNT2 

PTRl 

PTR2 

PHTIME 



« LASER DIRECTIONAL FINE TUNINQ 
LSRBSE DB 1,8,8,8,4,4,6,6,2 



DB 7,7,7,3,;:s,s,:! 



MOVE 


LDX 


«*I94 


(HANDLE ALL. 


MOVES 


DEC 


MOVET. X 


(TIME TO MOVE? 




BPL 


movenI 


(NO! LATER! 




LDY 


TYPES 


(RESTORE MOVE 




LDA 


MOVEDB-1 


Y (TIMER. 




LDY 


HEVCEL.X 


(CELL IN TOW? 




BPL 


MOVEl 


[NO! MOVEFAST! 




A3L 


A 


(YES! MOVE 4 




A3L 


A 


(TIMES AS SLOW 


MDVEl 


STA 


MOVET, X 
M0V3U8 


(SAVE MOVE 




JSR 


(TIMER S> MOVE! 


MOVENX 


DEX 




(HANDLE NEXT 




CPX 


«*01 


(BftCTERION! 




BNE 


MOVE0 


1 IF ANY. 




RTS 




(OUTTA HERE! 



:TARX 
:TARY 
: ADDX 
: ADDY 
: DELTA 



DB 
DB 
DB 
DB 
DB 



(X-COORD TARGET 
(Y-CDORD TARGET 
(X-CQORD ADD ON 
(Y-COORD ADD ON 
[TAR. Y - ACT. Y 



TRACK HEISTED CELLS 



TRACK LDX «*e4 
TRKO LDA STDP.X 
BNE TRKl 



(HANDLE ALL. 
(VESSEL ON ICE? 
(YES! BYPASS! 



LDA BEVCEL, X (CELL IN TOW? 



BPL TRKTRK 

LDA BEVY, X 

CMP #13 

BCC DFFSCR 

CMP 11233 

BCC TRKTRK 



(NO! QUIT! 

( IS VESSEL ALL 

(THE WAY OFF- 

f SCREEN? 

{ 

(NO! QUIT! 



X-COORD DIRECTIONAL ADD 0N« 

DB +e,-l, -2,-2,-2,-2, -2,-1 
DB t0,+l ,+2, »2,+2,<-2, +2, +1 

Y-COORD DIRECTIONAL ADD ONs 

DB -2, -2,-2,-1 , ta.-M, +2, tZ 
DB +2,*2,+2,+l ,+e,-l, -2,-2 

TURN DATABASE 

DB e,e, e, ID, 0,0,0 

MOVEMENT DATABASE 

DB e,e,e,e,e,o,0 



• SUCCESSFUL HEISTINB OF A CELL 



INC BEVESC 

DEC TOTCEL 

LDA ««01 

STA STOP, X 

BNE TRKl 



(INC. ESCAPEES 
(DEC. » OF CELLS 
(HALT THIS 
(BACTERION. 
( BRANCH! 



LDA ATTACK, X [ATTACKING? 

BNE TRKl (YES! SKIP! 

LDA BEVDES, X (AT TARSET? 

BPL TRKl (YES! SKIP! 

LDA ESCAPE, X (ATTACKING PLR? 

BEO TRKl (YES! BRANCH! 

STA TARY,X (NO! SET Y-TARQET 



JSR PICKX 

STA TARX, X 

JSR PICKDR 

LDA BEVCEL, 

ORA **a0 

STA BEVCEL, 



(PICK RANDOM X-TARBET. 
(SAVE IT. 
(SET A DIRECTION 
(GIVE CELL A 
(HEISTED STATUS. 



X I 



IRKl DEX (HANDLE NEXT 

CPX **01 (BACTERION! 

BNE TRKB (IF ANY. 
RTS (GET LOST LOSER! 

• ACCUMULATOR ABSOLUTE VALUE FUNCTION 

ABS BPL RAB8 
EOR ••FF 

ADC •*01 
RABS RTS 

• DIRECTIONAL WRAP AROUND 
WRAP BPL PWRflP [DIRECTION > B7 



CLC 
ADC •16 
RTS 

CMP D16 
BCC NRTS 
SEC 

SBC *16 
RTS 



[NO! ADD 16 TO IT. 

(GET LOST LOSER! 
[DIRECTION < 16? 
(NO! SUBTRACT 16 
(FROM IT. 



[GET LOST LOSER! 
GENERAL MOVEMENT ANALYSIS 



LDA 
BNE 
LDA 
BMI 
LDY 
LDA 
STA 
CLC 
ADC 
STA 
LDA 
STA 
CLC 
ADC 
STA 
LDA 
BPL 
AND 
TAY 
LDA 
CLC 
ADC 
STA 



STOP, X 




(COMATOSE? 


MOVl 




(YES! OUIT! 


BEVDES 


X 


(TARGET REACHED? 


MOVl 




(YES! QUIT! 


QEVDIR 


X 


(BET DIRECTION. 


DELX, Y 

: addS 




[ADD X-COORD ADD 




(ON FOR GIVEN 






(DIRECTION. 


BEVX, X 




( 


GEVX, X 




(SAVE IT. 


dely'y 




(ADD Y-CDORD ADD 


:ADD^ 




(ON FOR SIVEN 
( DIRECTION. 


8EVY, X 




( 


QEVY, X 
BEVCEL 




[SAVE IT. 


X 


(CELL IN TDW? 


MOVl 




(NO! OUIT! 


• »7F 




(YES ! 


: ADDX 




[ADD X-COORD ADD 
(ON FOR GIVEN 


CELLNX, 


Y 


(DIRECTION TO 


CELLNX, 


Y 


(CELL'S X-CODRD. 



TITLE 


•BACTERION! PM 


DRAW ROUTINE' 


DRAW 


PROC 






LDA 


• •04 


(HANDLE ALL. 




STA 


COUNT 


(VESSELS (B-4> 


DRAWl 


LDX 


COUNT 


(VESSEL •. 




LDY 


TYPE, X 


(TYPE (0-7). 




LDA 


PHASt, X 
INDEXJ-I.Y 


(SHAPE PHASE. 




CMP 


[PHASE EXCEE- 




BCC 


DRAW3 


(DED7 


DRAW2 


LDA 


INDEX, Y 


[YES! CORRECT 




STA 


PHASE X 


(PHASE. 


DRAW3 


CMP 


INDEX, Y 


[PHASE EXCEE- 




BCC 


DRAWZ 


(DED? 




ASL 


A 


(NO! GET OFF- 




TAY 




I3ET TO DATA 




LDA 


OFFSET, Y 


[FOR THIS 




STA 


DRWLO 


[PHASE. 




LDA 


OFFSET+1 , Y 


[ 




STA 


DRWLO-Kl 


1 




LDA 


COUNT 


(FIND WHERE TO 




ASL 


A 


(PLACE PHASE 




TAY 




[DATA. (DEP- 




LDA 


PI BSE, Y 


[ENDS ON WHICH 




STA 


PLLO 


[VESSEL • WE 




LDA 


PLBSE^ 1 , Y 


[ARE DRAMINQ) . 




STA 


PLLD+1 


[ 




LDA 


• •07 


(PREPARE TO 




STA 


PTRl 


[READ B BYTES. 




CLC 




(FIND OUT 




ADC 


BEVY, X 


(WHERE TO PUT 




STA 


PTR2 


(DATA. 


DRAM4 


LDY 


PTRl 


(GET PHASE 




LDA 


(DRWLO) , Y 


[DATA, 




LDY 


PTR2 


(PUT INTO PM 




STA 


(PLLO) , Y 


[LOCATIONS. 




DEC 


PTR2 


(RESET 




DEC 


PTRl 


(POINTERS. 




BPL 


DRAW4 


(ALL DONE? 




LDA 


• •07 


(YES! SET UP 




STA 


CDUNT2 


[FOR 8 BYTES. 


DRAW3 


LDX 


COUNT 


(BEGIN ERASING 




LDA 


GEVY, X 
CDUNT2 


(DATA AT TOP 




LDX 


[8. BOTTOM OF 




CLC 




(VESSEL. THIS 




ADC 


ERADD, X 


(ACCOUNTS FOR 




TAY 




(WHEN A VESSEL 




LDA 


• •00 


(MOVES VERTI- 




STA 


(PLLO) , Y 


(CALLY AS WE 




DEC 


C0UNT2 


(MUST PRE- 




BPL 


DRflW3 


(VENT DATA 




DEC 


COUNT 


(OVERLAP. 




BPL 


DRAWl 


(YEAH 80 WHAT! 


DRAW6 


DEC 


PHTIME (DEC PHASE TIMER. 



BPL DRAW? (QUIT IF NOT 0. 
LDA ••04 (RESET PHASE TIMER 
STA PHTIME (I. STORE. 



TAX 




(HANDLE ALL (0-4) 




CPX 


• •02 


(A BACTERION? 




BCS 


PHS3 


[YES! SKIP IT! 


* 


LDA 


TYPE, X 


[IS IT EXPLODING? 




CMP 


• •07 


( 


;ROT08 


BNE 


PH87 


[NO! SKIP IT! 




LDA 


PHASE, X 


[ 




CMP 


• 47 


( ( INDEXi-8)-l 


* 


BEQ 


PHS7 


1 




INC 


PHASE, X 


[ INC VESSEL PHASE 


: ROT09 


CMP 


• 46 


1 ( INDEX+8)-2 




BNE 


PHS7 


( 




CPX 


• •02 


[ IS VESSEL A 


* 


BCC 


PHS7 


[PLAYER? 





DB (BYTE DRAW COUNTER 

DB [BYTE DRAW COUNTER 

DB (POINTER TO PHASE DATA 

DB (POINTER TO PM AREA 

DB 3 (VESSEL PHASE TIMER 

TOP/BOTTOM ERASURE OFFSETS 

DB -4, -3, -2, -1, +8, +9, +10, +11 

INDEX TO VESSEL PHASE DATA 

DB 0,16,20,24,28,31,33,39,48 

LO/HI BYTES TO PM AREA 

DW PLAY0 

DW PLAYl 

DW PLAY2 

DW PLAY3 

DW MISS 

OFFSET TO VESSEL PHASE DATA 

[0 



DW 
DW 
DW 
DW 
DW 
DW 
DW 
DM 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DU 

DW 
DW 
DW 
CW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 



ROT00 
ROT01 
ROT02 
ROT03 
ROT04 
ROT03 
R0TB6 
ROT07 
R0TB8 
ROT09 
ROT 10 
ROT 11 
ROT 12 
R0T13 
R0T14 
R0T13 

8EVt0 
BEVll 
SEV12 
BEVll 

aEV20 
BEV21 
aEV22 
GEV21 

QEV30 
8EV31 
BEV32 
GEV31 

GEV40 
8EV41 
8EV42 

SEVSB 
SEVSl 
8EV32 
SEVSl 

8EV60 
GEV6t 
8EV62 
BEV63 

EXP0 
EXPl 
EXP2 
EXP3 
EXP4 
EXPS 
EXP6 
EXP7 
EXPS 



TANK ROTATION 

DB *10,^10,«10,«3S 
DB ^34 .•82;^44,^44 

TANK ROTATION 1 

DB •20,^20, »10,»1E 
DB ^19, •21 ,*20,^10 

TANK ROTATION 2 

DB •80, •40,^20, •IF 
DB *19,*10,^10,^1B 

TANK ROTATION 3 

DB •00,^00, (06, ^39 
DB •18,^10,^10,^0C 

TANK ROTATION 4 

DD •04, •0B,^10, •F0 
DB •10,*0B,^04,«00 

TANK ROTATION 3 

DB •0C,*10,^10,«18 
DB *39, •C6,^00,^00 

TANK ROTATION 6 

DB •IS, ^10,^10, •19 
DB *1F,^20,*40,^S0 

TANK ROTATION 7 

DB •10,*20,*21 ,^19 
DB •1E,»10,^20,^20 

TANK ROTATION 8 

DB •44,^44, »82,^44 
DB »3e,«l»,»10,»10 

TANK ROTATION 9 

DB •08, ^04, •S4,^98 
DB •78, *0B, •04,^04 

TANK ROTATION 10 
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:QEVt0 
:8EVll 

-.QEVIZ 

• 
:QEV20 

:qev21 

:GEV22 

• 
:8EV30 

:aEV3i 

:qev3Z 

» 
:SEV4V 

:eEV4t 

: SEV42 

• 
:aEV50 

:qev3i 

tsEvaz 

• 
:QEV60 

: aev&i 

:qev6z 

:QEVA3 

* 
:exp« 

:expi 

:exp2 

:exp3 

:EXP4 

:EXP3 

:EXP6 

:EXP7 

:exp8 



DB *t8,«08,*08 
DB *Fa,*04,*<)2 

TANK RDTflTIDN 

DB •3e,*e8,*08 
DB «9C,*63,*0e 

TANK ROTATION 

DB *20,*D0,*28 

DB «ea,*De,*2e 

TANK ROTATION 
DB *00,*ee,*63 

DB *i8,*0a,*0a 

TANK ROTATION 

DB «el,*02,*04 
DB «98,*0S,*0e 

TANK ROTATION 

DB *e4,*04,»ea 

DB •9a,*84,*04 
BACTERION! 41 



DB •18,»00, 
DB •8l!«24, 



• 24 

• 00 



DB *18,*42,»24 
DB •81,*24,*42 

DB •99,»42,»24 
DB *81,^24,*42 

BACTERION! «Z 

DB •00,«00,^3C 
DB •24,*3C,*00 

DB •00,*66,*42 
DB •18,*42,*66 

DB •C3,»81,^00 
DB •ia,^00,*Bl 

BACTERION! (3 

DB •3C,»42,^A3 
DB «ai,*AS,*42 

DB •e0,^ia,^24 

DB •42, •24, Via 

DB *00,*00,^ia 

DB •3C,^ia,^00 

BACTERION! 44 

DB *00,*00,^ia 
DB •24,*ia,^00 

DB •00,^ia,*00 

DB •3A,«00,*18 

DB •ia,»00,»18 
DB •AS, •18, •00 

BACTERION! »3 

DB •20,^20,*E4 
DB •18,*27,^04 



•IB, •66, »24 



DB »04,^04,»27 

DB •18,^E4,«20 

BACTERION! »i 

DB *0C,^40,»90 

DB •23,^aa,^40 

DB •IS, •00, •99 

DB •04,*ta,»42 

DB •30,^02,»19 

DB •AO, •19,^02 

DB *24,^42,^08 

DB •AS, •91, •00 

DETONATION 

DB *00,»00,^00 

DB •la, •00,^00 

DB •00,^00, ^08 

DB •1C,«10,*00 

DB •00,^0e,*08 

DB •lE,^10,^t0 

DB •08,^0a,^2C 

DB •07,^34,*10 

DB •08,^4A,^24 

DB •03,*24,^32 

DB •a9,«42,*24 

OB 401, •24,^42 



DB 481 

DB •00 



•42, 400 
•00, ^42 



DB •81,«00,^00 
DB •00,^00,^00 



DB •00,«00,^e0 
DB •e0,^00,^00 



• 98 

• 01 



1 
• 18 



• 0F 

• 00 



• IC 

• 30 



• FB 

• IS 



• 78 

• 08 



• 81 

• 18 



• 81 

• 18 



• 81 

• 99 



• 24 

• 00 



• 18 

• 00 



• 18 

• C3 



• 81 

• 3C 



• 42 

• 00 



• 3C 

• 00 



• 24 

• 00 



• SA 

• 00 



• A3 

• IB 



• la 

• 04 



• 18 

• 00 



• 18 

• 20 



• 23 

• 0C 



• Al 

♦ 24 



• 34 

• 30 



• 24 

• la 



• 18 

• 00 



• 38 

• 00 



• 7B 

• 00 



• E0 

• 10 



• C0 

• 10 



• 00 

• 81 



• 00 

• 81 



• 00 

• 00 



TITLE 
STICKS 



•BACTERION TITLE SCREEN" 

PROC 

BACTERION! 

DB 0,0,0,0,0 

DB 098,097,099,116,101 

DB 114,103,111,110,063 

DB 0,0,0,0,0 

THE PLflOUE OF 2369 

DB 000,180,168,163,00,176,172 
DB 161,167,181,163,00,173,166 
DB 00,210,211,214,217,00 

TEAM SCORE 

DB 0,0,0,0,0 
DB 180, lis; 161, 173,000 
DB 179,163,173,178,165 
DB 0,0,0,0,0 

DB 0,0, 0,0,0 
DB 0,0,0,0,0 
DB 0,0,0:0:0 
DB 0,0,0,0,0 

DB 0,0,0, 0,0 
DB 0,0,0,0, 
DB 0,0,0,0, 
DB 0,0,0,0, 

DB 0,0,0,0,0 
DB 0, 0,0,0,0 
DB 0,0,0,0,0 
DB 0,0,0,0, 

BY 

DB 00,00,00,00,00 
DB 00,00,00,00,34 
DB 37,00,00,00,00 
DB 00,00,00,00,00 

KYLE PEACOCK 

DB 0,0,0,0 

DB 233,249,236,229,000,240 
DB 229,223,227,239,227,233 
DB 0,0,0,0 

WITH 

DB 0,0, 0,0,0, 0,0,0 

DB 33,41,32,40 

DB 0,0,0, 0,0, 0,0, 

TOM HUDSON 

DB 0,0,0.0,0 
DB 244,239,237,000,232 
DB 243,228,243,239,238 
DB 0,0,0,0,0 

ANALOG COMPUTINS 

DB •00,^00, •Al, •AE, •At 

DB •AC, •AF, •A7, •00, •AS 

DB •AF,^AO,^B0,^B3, ^84 

DB •A9,^AE,*A7,*00,^00 



•JOYSTICK READINS" 



- TYPE OF TANK BEINa DRAWN 

- PLAYERS #1^2 

1-6 - BEV» 1,2.3,4,3.6 

7 - DETONATION SEOUENCE 
i - PHASE • OF BACTERION !• 

0-13 - PLAYERS « 1 S, 2 

tb-19 - BACTERION! • 1 

20-23 - BACTERION! It 2 

24-27 - BACTERION! • 3 

28-30 - BACTERION! » 4 

31-34 - BACTERION! • 5 

33-38 - BACTERION! * 6 

39-43 - EXPLOSION SEOUENCE 



SM0V3 
: M0V6 



RTaMOV 
TUBNIT 



• JOYSTICK/DIRECTION ADD ONS 

DRHASH DB 0,0,0,0,0,-1,-1,-1 
DB 0,+l,-H,*l,0,0,0,0 



TITLE -COLLISION DETECTION- 



COLLIDE PROC 



SHIP COLLISION 





LDX 


NOPLAY 


l» OF PLAYERS 


COLS 


LDA 


STOP, X 


) IS THIS PLR ICED? 




BNE 


COLxil 


lYES! MOVE ALONG. 




LDA 


**01 


INO! CHECK FOR 




STA 


IDIE 


ICOLLISION. . . 




LDA 


P0PL, X 


1 




AND 


»»02 


IPLR/PLR 




BEO 


C0L7 


INO COLLISION. 




JSR 


KILLME 


1 SMASH! BANG! 


C0L7 


INC 


IDIE 


1 CHECK FOR ANOTHER 




LDA 


P0PL,X 


ICOLLISION. . . 




AND 


««04 


IPLR/BACTERION 1 




BEQ 


COLS 


INO COLLISION. 




JSR 


KILLME 


lOUCH! CRASH! 


COLS 


INC 


IDIE 


1 CHECK FOR ANOTHER 




LDA 


P0PL, X 


[COLLISION. . . 




AND 


• •08 


IPLR/BACTERION 2 




BEQ 


C0L9 


INO COLLISION. 




JSR 


KILLME 


IDINB! DONS! 


C0L9 


INC 


IDIE 


1 CHECK FOR ANOTHER 




LDY 


• •03 


ICOLLISION 


COL 10 


TXA 
CLC 




I W/MIS3ILES. . . 




ADC 


»*0i 


1 




AND 


M0PL, Y 
COLll 


IPLR/BACTERION 3 




BES 


INO COLLISION. . . 




JSR 


KILLME 


IBINB! ZAP! 


COLll 


OEY 




I CONTINUE CHECKINa 




BPL 


COL10 


1 


» 


PLAYERS TOUCHING PODS? 




DEC 


PODTME 


ITIME TO CHECK? 




BPL 


C0L13 


INO! QO AWAY! 




LDA 


• •03 


1 RESET POD TIMER 




STA 


PODTME 


ITO SO AGAIN. 




LDA 


P0PF, X 


I SMASHED INTO 




AND 


• •01 


IPDD PLAYFIELD7 




BEQ 


C0L13 


INO! QO AWAY! 




LDA 


• •02 


lYES! ROTATE 




JSR 


RANDO 


1 RANDOMLY. 




LDY 


RANDOM 


1 ROTATE RIGHT 




BPL 


COL 12 


)0R LEFT? 




EOR 


• •FF 


IROTATE RIGHT. 




CLC 




1 (CLOCKWISE) 




ADC 


• •01 


1 


COL 12 


CLC 




IROTATE LEFT. 




ADC 


aEVDIR 


X 1 (COUNTERCLOCK) 




JSR 


WRAP 


(CHECK FOR WRAP 




STA 


8EVDIR 


X 1 AROUND << SAVE 




STA 


PHASE, i( INEW ROTATION. 


» 


PLAYER HIT 


BY LASER? 


C0L13 


LDA 


P0PF, X 


IHAS PLAYER 




AND 


• •02 


ICOLLIDED WITH 




BEQ 


COLXX 


ILA3ER PLAYFIELD? 




STX 


IDIE 


lYES! YES! YES! 




JSR 


KILLME 


IVAPOBIZE HIM! ! ! 


CQLXX 


DEX 




ICHECK NEXT 




BPL 


C0L3 


IPLAYER. . . 



LDX NOPLAY 

LDA STOP, X 

BEQ ACTS 

DEC BTOP.X 

BNE NXTACT 

JSR 3ETPLR 

JMP NXTACT 



f» OF PLAYERS 

I IS PLAYER DEAD? 
INO, CONTINUE. 
lOEC. DEATH TIME 
lii CONTINUE. 
IIF DEATH TIME-0 
■REINCARNATE. 



JSR MOVPLR I MOVE PLAYER 



DEC TURNIT,X 

BPL NXTACT 

LDA ^^03 

STA TURNIT.X 

LDY STICK0,X 

LDA SEVDIR.X 

ADC DRHmSH.Y 

JSR WRAP 

STA BEVOIR.X 

STA PHASE,* 

DEX 

BPL ACT4 

RTS 



I DEC. TURN TIME 
IIF <> CONT. 
I RESET TURN 
ITIME Si store. 

IREAD JOYSTICK. 
I UPDATE DIRECT- 
I ION ACCORDING 
I rO JOYSTICK. 
I TEST FOR WRAP 
I AROUND V 
ISAVE. 

■HANDLE NEXT 

■PLAYER. 

I ALL DONE 



GENERAL MOVEMENT ROUTINE 



DEC 
BPL 
LDA 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
DEC 
JMP 
INC 
LDY 
LDA 
STA 
STA 
LDA 
CMP 
BEQ 
JSR 
RTS 



SPEED, X 
RTSMOV 
STICK0, X 

• 14 
:M0V4 

• 10 

:nov4 

• 06 

: Movs 

CSPEED,X 

:mov6 

C3PEED,X 
CSPEED, X 
REHASH, Y 
CSPEED, X 
SPEED, X 
SPEED, X 
DRHASH- 1 
RTSMOV 
M0V8UB 



ITIME TO MOVE? 

INO, CONTINUE. 

lYES-READ STICK. 

■FORWARD MOTION. 

■ 

■FORWARD MOTION. 

■FORWARD MOTION. 

I 

■DEC. MOTION 

■ TIMER. 

■INC. MOTION 

■TIMER. 

■DETECT OVERFLOW 

IV CORRECT (IF 

I ANY.) THEN SAVE 

■NOTION TIMER. 



■MOVE TO CORRECT 
I ALL DONE. . . 



DB 0,0 (PLAYERS^ TURN TIMER. 
♦ SPEED LIMITATION DATABASE 
REHASH DB 2, 2, 2, 3, 4, 5, 6, 7, 8, 8, B 



STA HITCLR ICLEAR COLLISIONS. 
RT3 ) an TO DARK SIDE OF MOON. 
INSERT DEATH VALUE 



■SAVE Y-REB. 
■BET WHO DIES! 
I ARE THEY AL- 
■READY DEAD? 
■NO! PREPARE 
ITO VAPORIZE! 
■ASHES TO ASHES! 
■VAPORIZE OTHER 
■VESSEL AS WELL! 
I INC • OF KILLS! 
■RESTORE Y-REQ. 
■BET LOST! ! ! 



IIS THIS VESSEL 
■ALREADY ICED! 
INO! START VESSEL 
■DETONATION! ! ! 
■GIVE THEM A 
■DEATH STATUS. 
■TURN OFF BACTER- 
I ION! LASER SOUND. 
■START UP DETONAT- 
ilON SOUND. 
IBEAT IT! 
■PREMATURE 
■RETURN. (PACK 
■YOUR BABS AND 
■HIT THE ROAD!) 

■VESSEL • TO DIE. 
lY-REG. STORAGE. 
■ROTATION TIMER. 



I DO THIS FIRST. 
■DO THIS SECOND. 

PROJECTILES 

l« OF PLAYERS 

1 IS PLAYER ICED? 

■YES! SKIP HIM! 
,X lOK TO FIRE? 

■YES! CONTINUE. 
,X iNO! DEC TIMER. 

■SKIP TO NEXT, 

X I ALL BULLETS 

IFIRED ALREADY? 



KILLME 


STY 


YHOLD 




LDY 


IDIE 




LDA 


STOP, Y 
:KILiLx 




BNE 




TXA 






TAY 






JSR 


ZAP IT 




LDY 


IDIE 




JSR 


ZAPIT 




INC 


NOKILL 


:KILLX 


LDY 
RTS 


YHOLD 


* 


CHANOE TO 


ZAP IT 


LDA 


3T0P.Y 
ZAPRts 




BNE 




LDA 


• 07 




STA 


TYPE, Y 




LDA 


• 120 




STA 


STOP.Y 




LDA 


• 00 




STA 


L80UND 




LDA 


• 66 




STA 


X80UND 




RTS 




ZAPRTS 


PLA 
PLA 






LDY 


YHOLD 




RTS 




IDIE 


DB 





YHOLD 


DB 





PODTME 


DB 





TITLE 


•FIRE PLAYE 


SHOOT 


PROC 




JSR 


FIRST 




JMP 


SECOND 


» 


INITIALIZE 


FIRST 


LDX 


NOPLAY 


SHOOTS 


LDA 


STOP. X 




BNE 


XSHOOT 




LDA 


FDELAY 




BEQ 


SHaoT6 




DEC 


FDELAY 




JMP 


XSHOOT 


3HQ0T6 


LDA 


NOBULL 




CMP 


• •04 



AATARI 



Printers/Etc. ♦fiS'BaMP. 



600XL . 
1200XL 



1050 DRIVE $335 

1025 PAINTER $399 

1020 COLOR PTR . . . $219 

1027 PRINTER $279 

1010 RECORDER $72 

MICRO PERIF. MODEM/INFC 

DRIVES 

ASTRA 1620 $469 

RANA1000 $295 

PERCOM 88-S1 $298 

PERCOM 40-S1 $418 

PERCOM 40-S2 $718 

PERCOM 44-S1 $510 

PERCOM 44-S2 $929 



CALL 

CALL* 

'Reflects $100 Atari Rebate 
MICROBITS INFC .... $78 
80 COLUMN BD .... $249 
TECHNICAL NOTES. . $25 

REAL TIME CLK $38 

AXIOM PRINTER INFC $80 

$129 

MEMORIES 
48K RAM (INTEC) .... $95 
64KRAM(INTEC) ... $119 
48K RAM (MOSAIC) . . $109 
64K RAM (MOSAIC) . . $145 
128K RAM DISK .... $299 
32K RAM (MOSAIC) ... $68 



GEMINMOX 
GORILLA .. 



$279 
$199 



ATARI SOFTWARE 



ADVENTURE IN.T'L 

Adv. 1-12 each (C) $18 

PrepplB (C/D) $20 

Preppie II (C/D) $23 

Diskey (D) $33 

Sea Dragon (C/D) $23 

Bug Off! (C/D) $20 

Tutti-Frutti (C/D) $17 

Saga 1-3 (ea.)(D) $27 

Lunar Lndr . (C)$11 (D)$15 
Galactic Empire (C) . . $14 
Galactic Trader (C) ... $14 

Stratos (C/D) $23 

RearGuard (C)$14(D)$17 

APX 

Eastern Front (C/D) . . $23 

747 Land Sim. (C/D) .. $17 

Fig-Forth (C) $30 

Family Cash Flow (D) . $17 

Downhill (C/D) $17 

Avalanche (C/D) $17 

Outlaw/Howitzer (C/D) $17 

Salmon Run (C/D) $17 

Data Management (D) $17 
Galahad/Holy Grail (D) $21 
Adv. f^uslc System (D) $21 
ATARI INC. 

Microsoft Basic II (R) . $62 
Mickey in Great 

Outdoors (C/D) $36 

Paint (D) $30 

Speed Reading (C) ... $54 

Qix (R) $30 

Dig Dug (R) $30 

Atari Writer (R) $68 

Time Wise (D) $23 

Visicalc(D) $139 

Juggles House (C/D) .$22 
Juggles Rnbw (C/D) . . $22 

Pilot (Home) (R) $55 

Galaxlan (R) $30 

Defender (R) $30 

ET $34 

Microsoft Basic (D) ..$62 
Macro Ass. & Edit (D) .$62 
Assembler Editor (R) .$42 
Basic Cartridge (R) ... $45 

Pac Man (R) $30 

Centipede (R) $30 

Caverns of Mars (D) . . $28 

Star Raiders (R) $30 

Conv. Lang. Ea. (C) ... $42 
Music Composer (R) . . $31 
Super Breakout (R) . . . $26 
My First Alphabet (D) . $26 

Prog.2 & E (ea.)(C) $21 

Word Processor (D) .$102 

Pilot (Educ.)(R) $92 

Touch Typing (0) .... $19 
Home File Mngr(D) . . $36 

Bookkeeper (D) $102 

Family Finance (D) . . . $35 

Prog. 1 (C) $18 

Scram (C) $18 

Asteroids (R) $27 

Space Invaders (R) . . . $27 
Missile Command (R) . $27 

Teleiink(R) $21 

Superman III (R) $34 

Basketball (R) $24 

Donkey Kong (R) $34 

AVALON HILL 

VC(D) $17 

B-1 Nuc. Bomber (C) .. $12 

Legionnaire (C) $23 

Empire of Overmind 

(D) $23 (C) $20 

Tanktics ... (D) $20(0) $17 
Comptr Stock & Bonds . . . 

(D)$17(C)$14 

Dnieper River Line (D) $20 

Voyager(D) $17 

Controller (D) $20 

GFS Sorceress 

(D)$23(C)$20 

Telegard . . (0)$19(C)$16 

Vorrak(D) $18 

Lord of Karma (0) $14 



AVALON HILL(Cont'd) 

Moon Patrol (C) $17 

Planet Miners (C) $12 

Conflict 2500(C) $12 

Space Station Zulu 

(D) $17(0) $14 

Flying Ace . (D) $21(0) $18 

Gypsy (D)$18(C)$15 

Galaxy .... (D) $17(0) $14 
Guns of Fort Def.(C) . $14 

NukeWar(C) $12 

Andromeda Conquest ... 

(D) $16(0) $13 

Close Assit (D) $23 (0) $20 
BRODERBUND 

Sky Blazer (D) $22 

Bank St. Writer (D) ... $46 

A.E. (D) $23 

Arcade Machine (D) . . $39 
Chopllfter . (D) $23 (R) $29 

Labyrinth (C/D) $20 

Serpentine . (0)$23(R)$27 
Stelier Shuttle (C/D) .. $17 

Apple Panic (C/D) $20 

Genetic Drift (C/D) ... $20 
David's Midnight (D) .. $23 

Sea Fox (D) $20 

Track Attack (D) $20 

OperatnWhrlwnd(D) . $23 
Match Boxes (0/D) ... $20 
GDY CONSULTING 

Pogoman (C/D) $27 

Mad-Netter(0/D) $23 

lt-is-Bailoon(0/D) $23 

CBS 

Mountain King(R) . . . $27 

Boulders & Bombs (R) $27 

Krazy(each)(R) $27 

CONTINENTAL SOFT. 
Home Accountant (D) $48 
Tax Advantage (D) ... $39 
DATA MOST 

Pig Pen (D) $20 

Mating Zone (D) $20 

Roundabout (D) $20 

Bilestoad(D) $20 

Night Raiders (D) $20 

Monster Smash (D) ... $20 
DATASOFT 

Text Wizard (D) $65 

Graphic Master (D) ... $27 

Micro Painter (D) $23 

Lisp Interpreter (D) . . . $79 

Graphics Gen.(D) $17 

Basic Compiler (D) . . . $65 

Zaxxon (C/D) $27 

Teietaik(D) $34 

Pac. Coast Hwy (C/D) . $20 
Clowns/Balloons (C/D) $20 

Spell Wizard (D) $53 

Canyon Climber (C/D) $20 
Sands of Egypt (D) ... $27 
0'Riiey'sMine(C/D) .. $23 
Rosen's Brigade (C/D) $23 

Moon Shuttle (D) $27 

DON'T ASK 

Sam (D) $39 

P.M. Animator (D) $23 

Teietari (D) $27 

PokerSam(D) $17 

Word Race . (D) $17(0) $14 
EDU-WARE 

Prisoner 11(D) $27 

Spelling Bee (D) $27 

Rendevous (D) $27 

Oompu/Read 

(D)$21(C)$15 

Compu/Math-FR 

(D)$27(C)$21 

Compu/Math-Dec 

(D) $27(0) $21 

EDUCATIONAL SOFT. 
Tricky Tutorial 

1,2,3 or4 (C/D) $15 

Tricky Tutorial 

5,6 or 7 (C/D) $22 



CITOH 

Prowrlter $345 

Prowriterii $629 

Starwriter $1149 

Printmaster $1448 

NEC 

8023 AC $409 

3510 $1375 

3630 $1579 

3550 $1779 

7710/7730 $1998 



PROWRITER . $345 
SMITH TPI ... $488 

SILVER REED P . . . . $669 
QUME 11/40 -t- ....$1299 
OKI-DATA 

Microiine82A 

Microiine83A _j 

Microiine84P ^ 

Microllne92 u 

Microline93 

DIABLO 

620R $939 

630R $1719 




MONITORS 



AMDEK 

Color I $289 

V300 $139 

V300A $149 

Color II $449 



NEC 

GRN(JB1260) $115 

GRN(JB1201) $155 

Color Composite . . . $298 
RGB Color $598 



MODEMS 



HAYES 

Smarlmodem $209 

Smartmodem1200 .. $498 
Micromodem 11 $259 



NOVATION 

J-Cat $99 

Apple Cat II $259 

D-Cat $149 

ANCHOR AUTOMATION 
Mark I or 11 Modem ... $78 




SPECIALS 

Gemini 15X Printer $399 

Axiom AT-100 Printer (with interface $229 

Astra Double Density Dual Drive $469 

Rana 1000 Drive $319 

Bit-3 80 Column Board $245 

Mannesmann Talley 160L Printer $589 

Atari 400 Keyboard (In Home) $35 

Programmer Kit . . $48 Entertainer Kit ... $64 
Wico Joystick . . . $23 Wico Trackball . . . $49 

COSMIC 
COMPUTERS 

UNLIMITED 

727 BREA CANYON RD., SUITE 16 

WALNUT, CA 91789 
ORDER LINES OPEN MON-SAT 8 am - 8 pm 

(800) 626-7642 

PLEASE FOR ORDERS ONLY 
SORRY, NO COD'S 

(714) 594-5204 

FOR TECHNICAL INFO, ORDER INQUIRIES, 
OR FOR CALIFORNIA ORDERS 

Add $250 shipping per software order in continental U.S. Add $5.00 
shipping per software order lor AK. HI, FPO-APO. Add $10.00 or 15% 
(whichever is greater) per software order for non-U. S. Call lor cost o( 
hardware shipping. Calif, residents add e'AK sales tax. Cashiers 
checks or money orders lllled within 24 hours lor items in slock. 
Personal checl<s require 4 weeks to clear. MasterCard and Visa OK (or 
software only within continental U.S. , add 3% surcharge. Include card 
no., expiration date and signature. Due to our low prices, ail sales are 
Una!. All detective returns must have a return authorization number. 
Please call to obtain one before returning goods for replacement or 
repair. Prices & availability subject to change. 

CIRCLE #124 ON READER SERVICE CARD. 



DISK DRIVE SYSTEM 

MORE FOR YOUR MONEY 

DOUBLE OR SINGLE DENSITY 

TWO DRIVES 

SPECIAL $469 



EPYX-AUTO. SIMULATION 

Rescue at Rigel (C/D) $20 
Datestones/Ryn (C/D) $14 
UprRchsApstiai(C/D) $14 

Ricochet (C/D) $14 

Keys/Acheron (C/D) . . $14 
Curse of Ra (C/D) .... $14 
Danger/Drindisti (C/O) $14 

Junnpman (C/D) $27 

EscpVulcanslsle(D) .$20 
Crypt of Undead (D) . . $20 

Nightmare (D) $20 

Arnnor Assault (D) .... $27 
Monster Maze (R) .... $27 

Alien Garden (R) $27 

Plattermarna(R) $27 

Morloc's Tower (C) ...$14 
King Arthur's Heir 

(D)$20(C)$14 

HellfireWarrior(C/D) . $27 
Invasion Orion (C/D) . . $17 
Templeof Aps. (C/D) .$27 

Star Warrior (C/D) $27 

Dragon's Eye(D) $20 

Crush Crumble (C/D) .$20 
GEBELLI 

Firebird (R) $27 

Embargo (R) $30 

Candy Factory (D) $20 

Match Racers (C/D) . . $20 

Dr. Goodcode (D) $20 

HAVDEN 

Go (D) $23(0) $20 

Sargonll .. (D)$23(C)$20 
Bulldog Plnball(C) ... $20 
HES 

Coco (C/D) $34 

Coco II (C/D) $27 

INFOCOM 

Suspended (D) $34 

Zorkl,llorlll(D) $27 

Starcross (D) $27 

Deadline (D) $34 

Witness (D) $34 

INHOME 

Baseball . . (R) $23 (D) $23 

Crypts of Terror 

(D)$23(C)$20 

INNOVATIVE DESIGN 

Pool 1.5(D) $23 

Juggler(D) $20 

Speedway Blast 

(D)$20(R)$27 

Pool 400 (R) $27 

JV SOFTWARE 

Jrny to Pints (C/D) .... $20 

Action Quest (C/D) ... $20 

Ghost Encount. (C/D) . $20 

LJK 

Letter Perfect (D) . . . $104 

Data Perfect (D) $74 

Letter Perfect (R) ... $137 

Edit 6502 (R) $137 

MONARCH DATA SYS. 

ABC Compiler (D) $48 

ODESTA 

Chess (D) $45 

Checkers (D) $34 

Odin (D) $34 

OPTIMIZED SYSTEMS 

C-65 (D) $58 

Bug-65 (D) $23 

Max-65 (D) $58 

Basic A -f (D) $58 

Action (D) $65 

Speed Read Plus(D) . . $40 

PHOENIX 

Birth of Phoenix (D) . . $16 

Adv. In Time (D) $20 

QUALITY 

Fastgammon (0) $14 

Name That Song 

(D)$13(C)$11 

Starbase Hyperion 

(D)$17(C)$14 

All Babay40 Thvs (D) . . $20 
Jeeper Creepers (D) . . $20 
ROKLAN 

Gorf (D1$27(R)$30 

Wizard/Wor . (D)$27 (R)$30 
DIx Invaders (D)$23(R)$27 
AntI Sub Ptrl (D)$20 (C)$14 

Telecom (D) $49 

Space Journey (R) ... $30 
SENTIENT 

Gold Rush (D) $23 

Cyborg (D) $23 

SIERRA ON-LINE 
Mission Asteroids (D) $17 
Ulys.&Gldn Fleece (D) $27 
Crossfire . . (D) $20 (R) $23 

Mouseattack (D) $23 

Jawbreaker (D)$20(R)$23 

Threshold (D) $27 

Softporn (D) $20 

Ultima II (b) $39 



SIERRA ON-LINE 

Marauder (D) $23 

Lunar Leeper (D) $20 

Wiz& Princess (D) ... $22 

Frogger (C/D) $23 

SIRIUS 

Alpha Shield (R) $27 

Wavy Navy (D) $23 

Bandits (D) $23 

Space Eggs (D) $20 

Sneakers (D) $20 

Way Out (D) $27 

Type Attack (D) $27 

Repton(D) $27 

Critical Mass (D) $27 

Fast Eddy (R) $23 

WormWar(R) $23 

SPINNAKER 

Snooper Troop 1,2 (D) . $30 

Kindercomp(D) $20 

Rhymes & Riddles (D) $20 
Hey Diddle Diddle (D) . $20 
Srch AmzngThngs(D) $27 

Story Machine (D) $23 

Face Maker (D) $23 

STRATEGIC SIM. 
Cosmic Balance (D) . . $27 
Cosmic Balance II (D) $27 
Tigers In Snow (C/D) . . $27 
Battle of Shiloh (C/D) . $27 
Battle of Norm. (C/D) . $27 
Cytron Masters (D) ... $27 
Knights/Desert (C/D) .$27 
Combat Leader (C/D) . $27 
SUBLOQIC 

Pinball (C/D) $20 

SWIFTY 

J. White Music Lessons 

(C/D) $20 

Space Shuttle (D) $20 

SYNAPSE SOFTWARE 

FlleMngrSOO-f $65 

Protector II (D)$23(R)$29 
Shamus .. . (D)$23(R)$29 
Fort Apocalypse (C/D) $23 

Shamus II (C/D) $23 

Necromancer (C/D) ... $23 
Pharoh's Curse (C/D) .$23 

Slime (C/D) $23 

Page6(D) $23 

Reptilian (C/D) $23 

Picnic Paranoia (C/D) . $23 
Claim Jumper (C/D) . . $23 

Drelbs (C/D) $23 

Shadow World (C/D) .. $23 

Survivor (C/D) $23 

T.N.T. (C/D) $23 

N.Y.C. (C/D) $23 

Slamball (C/D) $23 

Blue Max (C/D) $23 

Nautilus (C/D) $23 

Chicken (R/D) $23 

Quasimodo (C/D) $23 

River Quest (C/D) $23 

SYNERGISTIC 
ProgramrWkshp(D) .. $23 
Graph Workshop (D) . . $27 
Disk Workshop (D) ... $23 
Worlock's Revenge (D) $23 
THORN EMI 

Soccer (R) $34 

Jumbo Jet (R) $34 

Submarine Oomm. (R) $34 

Kick Back (R) $34 

Pool (0) $22 

Humpty Dumpty (C) . . $22 
Hckry [Jckry Dck (0) . . $22 

Darts (C) $22 

USA 

Atari World (D) $39 

3-DSprgrphos(C/D) . . $27 

Survival Adv. (C/D) ... $17 

VERSA 

Mind Bgglrsl(D)$14(C)$12 

Globe Master (D) $20 

MISCELLANEOUS 
Financial Wizard (D) . . $41 
Castle Wolfenstein(D) $20 

Master Type (D) $27 

Astro Cha; '0) $22 

Miner 2049e, 1) $34 

Cypher Bowel (C) $33 

Bug Attack (C/D) $20 

Raster Blaster (D) $20 

Air Strike (C/D) $27 

Prism (D) $18 

Mogalegs (0) $23 

Cap'n Cosmo (D) $19 

Spy's Demise (0) $14 

Galac. Chase (D)$20 (C)$18 

Kid Grid (C/D) $20 

Battle Trek (0) $20 

Snapper (D) $19 

T&F-PMP Property 

Management (D) .. $149 
Millionaire (D) $39 



ISSUE 20 



ANALOG COMPUTING 
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SECOND 
TRftVa 



TRftuy 

TRAW8 
XTRAV 



BSLQT 
:XHOLD 



IYE9! SKIP HIM. 

r BUTTON PRESSED? 

INO! SKIP HIM. 

I INC » BULLETS. 

I MAKE CANNON 

IFIRINS SOUND. 

)SET UP FIRINS 

I DELAY. 

■FIND AN UNUSED 

I ARRAY SLOT FOR 

lA PROJECTILE. 

IDON'T STOP 

lUNTIL YOU 00! ! ! 

I ARRAY SLOT ». 

■SAVE WHICH PLR 

1« WHO FIRED. 

ISET 8TARTIN8 

[POINT OF PRO- 

IJECTILE ACCORD- 

I INS TO PLAYER'S 

lANBLE OF ROT- 

(ATION Si (OF 

I COURSE) 

I PLAYER'S 

I X )< Y COORDS. 

I 

) YUP! 

I 

I THAT" 3 WHAT ALL 

I THIS CODE DOES. 

I 

I I DARE ANYONE 

)T0 COME UP WITH 

JA BETTER PUBLIC 

I DOMAIN PROGRAM. 

I (EXCEPT TOM 

I HUDSON. . . ) 

ISO THERE! ! ! 



(MOVE ALONS TO 

BPL SHQ0T3 (NEXT PLAYER. 
RT3 I BEGONE I I ! 

MOVE PROJECTILES 

LDX «12 (HANDLE ALL. 
LDA BULLET, X (ANYBODY OWN 
BMI XTRAV (THIS BULLET? 

J9R MOVSUB lYES! MOVE IT! 



ECS 


XSHOOT 




LDA 


TRIG0. 
XSHOOT 


; 


BNE 




INC 


NOBULL 


X 


LDA 


• »07 




STA 


CSOUND 




LDA 


• •03 




STA 


FDELAY 


X 


LDY 


• 12 




SH00T7 LDA 


BULLET 


Y 


BMI 


SHOOTS 




DEY 






BNE 


3H00T7 




SHOOTS STY 


BSLOT 




TXA 






STA 


BULLET 


Y 


LDY 


BEVDIR 


X 


TYA 






PHA 






LDA 


DELX, Y 




ASL 


A 




CLC 






ADC 


QEVX, X 




SEC 






SBC 


»44 




LDY 


BSLOT 




STA 


GEVX.Y 




PLA 






STA 


8EVDIR, 


Y 


TAY 






LDA 


DELY, Y 




ASL 


A 




CLC 






ADC 


BEVY, X 




SEC 






SBC 


• »1C 




LDY 


BSLOT 




STA 


SEVY, Y 




XSHOOT DEX 




(f 



LDA SEVX,X 

CMP «142 

BCS :DEACT 

STA CELLNXi-S.X 

LDA QEVY, X 

CMP •192 

BCS :DEACT 

STA CELLNY+3,X 



(OUT OF 

(BOUNDS? 

(YE3! BYE! 

I 

(OUT OF 

(BOUNDS? 

(YES! LATER! 



LDY 
LDA 
BNE 
LDA 
CLC 
ADC 
SEC 
SBC 
CUP 
BCS 
LDA 
CLC 
ADC 
SEC 
SBC 
CMP 
BCS 



• *I34 
STOP, Y 
TRAV7 
BEVX, X 

• 48 
GEVX, Y 

• •af 

TRAV7 
8EVY, X 

• •20 
BEVY, Y 
TRAV7 



IS THIS BULLET 
WITHIN RANQE OF 
ANY OF THE 
BACTERIQN3! 

LETHAL RANGE 
IS WITHIN 
a UNITS ON 
EITHER X OR Y 
AXIS. 



JBR ZAPIT (EXTERMINATE! 



8TX : XHOLD 

LDA BULLET, X 

TAX 

INC NOKILL.X 

l.DX : XHOLD 

STX : XHOLD 

LDA BULLET, X 
TAX 

DEC NOBULL, X 

LDX : XHOLD 

LDA •»FF 

STA BULLET, X 

STA CELLNX-t-S, ) 

STA CELLNY-l-3,) 

BNE TRAV9 



(SAVE X-REB. 
(FIND BULLET 
(OWNER i, INC. 
(• OF KILLS. 
IRES. X-RE3. 

(SAVE X-REB. 
(GET BULLET 
(OWNER Si DEC. 
(» OF BULLETS. 
IRES. X-RE8. 
(DEACTIVATE 
(BULLET. <N0 
(OWNER OR X, 
lY COORDS) 
(BET OUT! 



DEY 1 CHECK FOR COLL- 

CPY •»01 IISION WITH NEXT 

BNE TRAV6 IBACTERION! 

LDA •»01 (BULLET LIVES. 

STA CELLMV+S,X I MOVE IT. 



DEX 

CPX *»0* 



BNE TRAV3 (MOVE'? 



IMOVE NEXT BULLET. 
I OUT OF BULLETS TO 



DB 
DB 



1YE3! LATER Y'ALL! 



1 UNUSED ARRAY SLOT. 
(X-REB. TEMP STORE. 



TITLE 'BflCTERION! GRAPHICS PLOTTER' 



BR. 7+ PLOTTER ROUTINE 
COURTESY OF TOM HUDSON 



PLOTTER PROC 

• POINT PLOTTER ROUTINE 



LOTPT LDX 


PLOTY 


CPX 


• 193 


BCS 


:PBYE 


LDA 


LOTBL,X 


STA 


LO 


LDA 


HIT8L, X 


STA 


HI 


LDA 


PLOTX 


CMP 


»1«0 


BCS 


:pbye 


AND 


• 3 


TAX 




LDA 


PLOTX 


L8R 


A 


L3R 


A 


STA 


YOFBET 



( Y-COORD. 
(OFFSCREEN? 
(YES! QUIT! 
INO' GET LO 
|S< HI BYTE 
(OF SCREEN 
(RAM AREA. 
( X-COORD. 
I OFFSCREEN? 
(YES! QUIT! 
(PLOT INDEX 
(PLACE IN X 
(BET PLOTX S. 
I DIVIDE 
|BY 4. 
( 



LDY COLOR I GET COLOR S< 

LDA :BMaK2,X IMflSK OFF 

AND :COLRS,Y (PIXEL POS. 

STA HOLD (SAVE IT. 

LDA -.BMSKl.X I MASK OFF PIXEL 

LDY Y0F8ET I OF ADDR TO BE 

AND (LO),Y (ALTERED. 

ORA HOLD ISET PLOT BITS 

STA <L0) ,Y (& STORE. 

RTS (ALL DONE... 

DRAW FROM/TO ROUTINE 



LDA 
CMP 
BCC 
SEC 
SBC 
STA 
LDA 
STA 
BNE 
LDA 
SEC 
SBC 
STA 
LDA 
STA 
LDA 
CMP 
BCC 
SEC 
SBC 
STA 
LDA 
STA 
BNE 
LDA 
SEC 

asc 

STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
CMP 
BCC 
STA 
STA 
L3R 
STA 
JMP 
LDA 
STA 
STA 
L8R 
STA 



: DRAWS 

:bebin 



:PLOTT 
: DRAWE 

3H0CEL 



DRAWY 
PLOTY 
: YMNU8 

PLOTY 

DELTAY 

«1 

INCY 

: XVEC 

PLOTY 

DRAWY 
DELTAY 

• 233 
INCY 
DRAWX 
PLOTX 

: XMNUS 

PLOTX 
DELTAX 

• 1 
INCX 

: VCSET 
PLOTX 

DRAWX 
DELTAX 

• 233 
INCX 

• 

ACCY 
ACCX 
DELTAX 
DELTAY 
: YMAX 
COUNTR 
ENDPT 
A 
ACCY 

: DRAWS 

DELTAY 

COUNTR 

ENDPT 

A 

ACCX 



IS DRAWY 

> PLOTY? 
NO! 

SUB. PLOTY 
FROM DRAWY «> 
8AVE DIFF. 

Y INC. - 1. 
(DOWN) 
BRANCH! 
SUB. DRAWY 
FROM PLOTY S< 
SAVE DIFF. 

Y INC. - -I. 
(UP) 

IS DRAMX 

> PLOTX? 
NO! 

SUB. DRAMX 
FROM PLOTX 
S< SAVE DIFF. 

X INC. IS 1 

(RIGHT) 
BRANCH! 
SUB. DRAWX 
FROM PLOTX 
» SAVE DIFF. 

X INC IS -I 

(LEFT) 

ZERO OUT 

Y-ACC. 

X-ACC. 

18 DELTAX > 

DELTAY? 

NO! 

SAVE DELTAX 

IN COUNTR. ENDPT. 

DIV. BY 2 8< 

STORE IN Y-ACC. 

START DRAW 

DELTAY LARGER. 

STORE IT IN 

COUNTR, ENDPT. 

DIV BY 2 >. 

STORE IN X-ACC. 



BEGIN DRAWING TO DESTINATION 



LDA 
BEQ 
LDA 
CLC 
ADC 
BCS 
STA 
CMP 
BCC 
LDA 
SEC 
SBC 
3TA 
LDA 
CLC 
ADC 
STA 
LDA 
CLC 
ADC 
BCS 
STA 
CMP 
BCC 
LDA 
SEC 
SBC 
STA 
LDA 
CLC 
ADC 
STA 
J8R 
DEC 
BNE 
RTS 



COUNTR 
: DRAWE 
ACCY 

DELTAY 

:0VER1 

ACCY 

ENDPT 

:BE0N2 

ACCY 

ENDPT 

ACCY 

PLOTY 

INCY 

PLOTY 

ACCX 

DELTAX 

:0VER2 

ACCX 

ENDPT 

(PLOTT 

ACCX 

ENDPT 

ACCX 

PLOTX 

INCX 
PLOTX 
PLOTPT 
COUNTR 

: BEGIN 



( IF COUNTR-0. . . 
(NO DRAW! 
(ADD DELTAY 

(TO Y-ACC. 

I 

(AT ENDPNT YET? 
(NO, GO DO X. 
(3U6. ENDPT 
(FROM Y-ACC. 
I 

(AND INC. THE 
(Y. POSITION. 
I 

lADD DELTAX TO 

( X-ACC. 

I 

I 

(AT ENDPT. YET? 
INO, BO PLOT. 
(3UB. ENDPT 
(FROM X-ACC. 
( 

(AND INC. 
(PLOT X 
! 

(PLOT POINT. 
(MORE TO DRAW? 
I YES! 
(NO, ALL DONE. . . 



DRAW AN INDIVIDUAL CELL 



LDX 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDX 
LDA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
JSR 
RTS 



CELL MOVER 



CELNUM 

• »00 

CELLMV.X 
COLOR 
CELLOX, X 
PLOTX 
CELLOY, X 
PLOTY 

• *00 
OBJECT 
CELNUM 
CELLNX,X 
PLOTX 
CELLOX, X 
CELLNY, X 
PLOTY 
CELLOY, X 

• 1 
COLOR 

• 
OBJECT 



CELL » TO DRAW 
SPECIFY COLOR 
S< DON'T UPDATE 
ABAIN. 

GET OLD X-COORD 
S< STORE 

GET OLD Y-COORD 
S. aTORE 

SPECIFY OBJECT 
Si DRAW IT. . . 
CELL • TO DRAM 
GET NEW X-COORD 
S< STORE 

Y-COORD 



ASL 
ASL 
ASL 
STA 
LDA 
STA 
LDX 
LDY 
EMI 
LDA 
STA 
LDA 
8Tfl 
LDA 



8HAPIX 

*a 

SHAPCT 

SHAPIX 

OBJDIR 

ENDOBJ 

PXINC.Y 

XI 

PYINC.Y 

YI 

OBJLEN, 



I GET NEW 
|S< 3TQRE 

I SPECIFY COLOR 
(OF CELL 
(BPECIFY OBJECT 
iSi DRAW IT. . . 
I ALL DONE 



(MULT OBJECT 
I INDEX BY a 
ITO POINT INTO 
(SHAPE TABLE 
IB LINES MAX 
I IN SHAPE 
(GET LINE • 
X(Si ITS DIRECTION 
( IF »FF ALL DONE 
(GET X INCREMENT 





STA 


LENGTH 




PLOTOB 


LDA 


PLOTX 


I INCREMENT 




CLC 




(THE X 




ADC 


XI 


(COORDINATE 




STA 


PLOTX 


(AND SAVE 




LDA 


PLOTY 


1 INCREMENT 




CLC 




(THE Y 




ADC 


YI 


(COORDINATE 




STA 


PLOTY 


(AND SAVE 




LDA 


SHAPCT 


(FIRST LINE? 




CMP 


• *0S 






BEQ 


NOPLTl 


(DON'T PLOT IT! 




JSR 


PLOTPT 


(PLOT POINT 


NOPLTl 


LDA 


LENGTH 


I MORE LENGTH? 




BEQ 


NOOBJ 






DEC 


LENGTH 


(DECREASE LENGTH 




BNE 


PLOTOB 


1 YUP! 


NOOBJ 


INC 


SHAPIX 


INEXT LINE 




DEC 


SHAPCT 


(DONE 9 LINES? 




BNE 


DOBLP 


I NOPE ! 


ENDOBJ 


RTa 




(FINIS! ! ! 


« 


SHAPE DATA 




PXINC 


DB 


0.0, 1,»FF. l.»FF. l.»FF 


PYINC 


DB 


«FF, 1,0 


0,»FF, I, 1 ,»FF 


* 


OBJECT 


SIDE LENOTHS 


OBJLEN 


DB 


3,2.2,2 


2.2.2.0 




DB 


4A,i, !»,»,«, «,0 




DB 


0,40, 0,0,0 0,0,0 




DB 


0, 40,0,0,0, 0,0,0 




DB 


0;40,0,0,0,0,0,0 




DB 


0,40,0,0,0,0, 0,0 




DB 


0,40.0,0.0.0.0.0 




DB 


40 


9,0,0,0,0 




DB 


0, 40,0, 


9,0,0,0,0 


» 


OBJECT 


SIDE DIRECTIONS 


OBJDIR 


DB 


2,3,3,7 


4,2,*,»FF 




DB 


0,0. tPF 


,0,0,0,0,0 




DB 


0, 1 ;»FF 


0,0,0 




DB 


0,2, »FF 


0,0,0,0,0 




DB 


3,»FF 


0,0,0, 0,0 




DB 


4 JPF 


a 0l0;0 




DB 


0.3. •FF 


0,0,0,0,0 




DB 


0;4 •FF 


0,0,0,0,0 




DB 


0,7,»FF 


0,0,0,0,0 


: COLRS 


DB 


•00, •33 


•AA.^FF 


-. BMSKl 


DB 


♦3F tCF 


•F3,»FC 


:BM3K2 


DB 


•C0,^30 


•0C, ^03 


:C0LR1 


DB 


»40;»10 


•04 »01 


LOTBL 


DS 192 






HITBL 


DS 192 








END «2B00 





RAM for ATARI* 


Fully Assembled • Lifetime Warranty 


48K/52K Memory Board 


$79.95 


For ATARI* 400 




52K Ad(Jressable Memory 




Easy to Install 




32K Memory Board 


$54.95 


For ATARI* 400 or 800 




16K Memory Board 




For ATARI* 800 




BUILD YOUR OWN MEMORY 




48K/52K Board (No Comp.) 


$30.00 


32K Board (No Comp.) 


$20.00 


16K Board (No Comp.) 


$ 9.00 


48K/52K Complete Kit 


$70.00 


32K Complete Kit 


$45.00 


18K Complete Kit 


$30.00 


Add $2 Shipping & Handling 




Visa & MasterCard Accepted 




*ATARI is a trademark of Atari, Inc. | 


Dealer Inquiries Welcome 




Tiny Tek, Inc. 




Route 1 , Box 795 




Quinlan, TX 75474 




214-447-3025 


^^ 



(AND Y INCREMENT 
XI AND LINE LENGTH 



CIRCLE #125 ON READER SERVICE CARD. 



FOR 
ALL 

ATARI COMPUTERS 



BEST SELLERS FROM 
THE PROGRAMMERS WORKSHOP 



TWO DRIVES FOR 
THE PRICE OF ONE 

THE 

ASTRA 

1620 

MORE DISK DRIVE FOR YOUR MONEY ... 

In fact, with the ASTRA 1620, you get two superb Disk 
Drives for the price of one. The ASTRA 1620 is Single 
or Double Density (software selectable) and completely 
compatible with ATARI DOS or OSA + DOS. When 
used as Double Density, the ASTRA 1620 has the 
same capacity as Four ATARI 810® Disk Drives. 
•k Satisfaction Guaranteed -k 





INCLUDED: at no extra charge 

One Copy of Home Writer and One Copy of Smart DOS. 



THE HOME WRITER $39.00 



The HOME WRITER is an easy to use word proces- 
sor which includes a carefully selected group of func- 
tions that are at your disposal immediately. The func- 
tions are as follows: SAVE, LOAD, REVIEW, PRINT- 
OUT, or EDIT. All the popular editting features avail- 
able on the ATARI Home Computer in direct prog- 
ramming mode are also available with HOME WRIT- 
ER. You may also search for phrases or strings, load 
off of either disk or cassette, and number pages auto- 
matically. Unlike other small word processing pro- 
grams, HOME WRITER does not wrap-around when 
at the end of a line. Right and left margin justification 
is available for any type parallel printer. 48K. 



FILING SYSTEM $39.00 



FILING SYSTEM allows the user to configure any 
type of data file imaginable. Examples are recipe 
cards, mail lists, reminders for birthdays, check-ups, 
etc., complete inventories (home and business), 
personnel files, customer call-ups, price list, and 
much, much more. You may retrieve data using any 
field or combination of fields. Files also may be 
saved, sorted, and printed in a preset format that you 
configure. Uses either a single or a double density 
disk drive. Three preconfigured files are included - a 
Mailing List, a Price List, and a Household Inventory. 
24K minimum. Now In double density. 



THE PROGRAMMERS WORKSHOP 

5230 Clark Ave., Suite 19 
Lakewood, CA 90712 

(213) 920-8809 



DESK SET $39.00 



DESK SET is a perpetual calendar, an appointment 
calendar and also a card file. The perpetual calendar 
is a calendar of every month, past, present or future. 
The appointment calendar allows up to 15 entries to 
be made each day. The card file is a mail list program 
which holds up to 200 addresses. The printing format 
of card file includes continuous lists, labels or en- 
velopes. Files can be printed; all the files from one file 
number to another; by zip code; by state or by 
selected files. DESK SET is an easy way to organize 
your life. 40K 



FINANCIAL CALCULATOR $29.00 



The program answers virtually any questions con- 
cerning the cost of money, loans, and interest earned 
on savings, loans and investments. Plus, this pro- 
gram will give a complete interest earned table and 
amortization table. This program is a must for anyone 
serious about money. 32K. 



FORECASTER $29.00 



Forecast future events based on past information. 
Forecast profits, costs, sales trends, prices, test 
scores, virtually anything. Edit, save on disk and test 
various elements to determine the outcome. 
FORECASTER is a powerful "what if" program - a 
must for business. 24K 



STAT PLUS $29.00 



STAT PLUS is the most powerful statistic tool we 
have seen. Run sample space, mean, variance and 
standard deviation. Do probabilities using binomial, 
poisson or normal distribution. Also, do students' 
t-test, Mann-Whitney U test and Chi Square. Do 
linear regressions; may use 1-12 independent vari- 
ables. Interact a sample from one module to another, 
edit, rank and print out. 24K min. 



DISK FIX KIT $29.00 



It takes more than a speed adjustment to properly set 
up an Atari® 810 Disk Drive. Do it Right - Test Disk, 
Cleaner, Tools, Special Oil, Swabs and complete in- 
structions. 



TOf-\ D Pi C Q ■ ^'^^^^''^fCard, check or money order accepted. If charge, please Include expiration date of card. Ship- 
'^'•L'tri. ping and Handling software $1.50, disl( drive, $10.00. California residents add sales tax. Phone or mail. 



* ATARI is a registered trademarl< of Warner Communications 
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What 




■ ■ ■ •viv'.-''--' • ■•/••.•■•.••• 

■.\:^Sk ■■■::■.■::■■ 



••>.■:;•.■/.■ ■ 



16K 

Cassette 

24K 

Disk 




An educational activity .-^ff !'.'<> 

for children aged 5 through 10 ■'••3eRv\'';v,"..__. . ..- 

■ ," »73!^%;->.^*J»l»*■''♦■"• • '•'•■■•■ 



,^......jh,.A^,:i^^M-^^ •-■mm ■■mm 



by Larry W. Linson 



What Is It? is an activity that I began writing for 
my first grade class, in the fall of 1982. It's a 
reading/spelling activity in which you are asked to 
identify a series of seven random pictures. The pro- 
gram is similar to the reading workbooks children 
use in the primary grades. The child simply needs to 
type in the picture-word that corresponds with the 
picture. For example, if a picture of a HOUSE 
appears, then the word "HOUSE" should be typed 
in. In What Is It? there are four levels of difficulty. 
Level 1 offers a single clue, the name of the picture. 
Level 2 gives the picture word and two distracting 
clues which are not similar to the picture word. Level 
3 gives the picture word and three other similar 
distractors such as HOUSE, HORSE, MOUSE and 
HOWLS. Level 4 gives no hints at all; the word must 
be typed in from the child's memory. The program 
keeps score and reports it after each correct answer. 
The program keeps score and reports it after each 
correct answer. I've now had close to fifty children 
test this program, and most of the "bugs" have been 
worked out, with many new features added to the 
original program. 



Error trapping. 

Children working on Atari computers have the 
most trouble with accidentally pressing the BREAK 
key when they want the BACK SPACE key, which is 
right "next door." I avoided this problem by OPEN- 
ing the keyboard, rather than using the INPUT 
command. By using this technique, if a mistake is 
made and BACK SPACE is pressed, then the pro- 
gram clears the student's response and waits for 
another. An undesired response can be cleared at any 
time by pressing either the SPACE BAR or the 
BACK SPACE key. 

The BREAK key was disabled to prevent the pro- 
gram from being stopped prematurely. This was 
accomplished by using POKE 16,64 and POKE 
53774,64. I used a short subroutine at Line 13000 
for this, since the POKE must be repeated after each 
graphics mode change. I also used various TRAP 
statements for "catching" errors. In this way, the 
program doesn't halt if an error is detected. The 
children in my classes have been rather inventive in 
finding ways to "break" or "crash" programs. To 
date. What Is It? hasn't been crashed by any of my 
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first graders. I didn't protect against SYSTEM RESET. 
This key is not pressed accidentally very often 
(except during games!). I also felt it might be advan- 
tagous to be able to stop the program if desired. 

Memory-saving tricks. 

In the program, I have used various methods to 
save memory (RAM). One of these is to substitute 
variables for commonly employed numbers. For 
example, in the program, I have used the numeric 
variable Q.1 to equal 1, and Q.l+Q,l to equal 2, and 
so on. Atari BASIC uses up seven bytes every time a 
number is entered. By substituting a numeric varia- 
ble, such as Q.1, only one byte of memory is needed. 
This may initially make the program seem a little 
difficult to decipher, but just read "Q,l" as "1" and 
you won't have any problem. I used this same tech- 
nique to label POKE locations and subroutines. The 
command GOTO PICK sends the program to the 
picture shuffling routine. POKE OFF.Ql is used to 
turn off the cursor. The number held by OFF is 752. 
POKEing 752 with a 1 (entered as POKE 752,1) tells 
the cursor to disappear. 

Another way of saving RAM was to utilize many 
statements on the same line, employing the same 
numeric variables over and over. In this way. What 
Is It? will run on a 16K 400 or 600XL. Any more 
RAM-saving stunts, and the program would have 
been virtually unreadable and much more frustrating 
to type in! 

Program flow. 

The program is set up rather logically — to my way 
of thinking, anyway! What Is It? begins with a title 
page and then asks for your name. You select the level 
you wish to try, and a series of seven random pictures 
follows. Having only eleven pictures in the program's 
library may not seem like very many, but I believe 
that my students enjoy the familiarity and rein- 
forcement they achieve with this library of pictures. 
Since each picture is picked at random, and the pro- 
gram will not pick the same picture twice, there are 
over one and one-half million different combina- 
tions of the eleven pictures! Check it yourself — try 
this on your Atari: PRINT ( 1 1 * 10*9*8*7 *6*5 ). The 
results are staggering, aren't they? 

After each picture word is correctly answered, a 
short reward sequence is initiated. After the seventh 
picture, an overall score is given, and you are asked if 
you would like to try again. Many of the techniques 
that I have used in What Is It? have been borrowed 
from other programmers. The idea of using numeric 
variables comes from Jerry White; the picture- 
shuffling routine in Lines 4000-4010 is from James 
Korenthal; and the practice of using DATA state- 
ments to READ numbers to PLOT and DRAWTO 
for graphics, I learned from Elaine Garringer. I have 
found that the best way to learn how to program is to 
type in programs, such as this one, RUN it and then 
study the code to see how the author achieved differ- 



ent effects. I've learned more from doing this than 
from any book I have purchased! D 

Variable table. 
Variable — Usage 

NAME$ — stores user's name 

REWARD$ — holds a reward message for end 
of program 

TEMP$ — holds correct picture word to 
match to answer 

G$ — user's answer for picture shown 

T$ — large blank space used for clearing out 
area 

Q,1,Q2,Q3 — numeric variables 

Q6,Q,10,Q20 

Q,l=l etc. 

CUE — routine that asks question 

CLUE — gives clues depending upon level 

PICK — shuffle routine that selects picture 

PICTURE — holds the beginning line number 
of the picture subroutine that was chosen for 
display 

BRK — subroutine that blocks out BREAK 
key 

LWL — sends program to get the set of 
CLUEs for the appropriate level 

PN & POOL — used in shuffle routine 

RA — # of Right Answers 

WA — # of Wrong Answers 

SPOT — used as a return point in setting up 
TRAP statement 

LV — the selected level 

HOU,STA,BOX,KIT,BOO,TV,TRU,FOOT, 
FAC,CON,LOL — used in subroutine that 
weeds out pictures already used, so the same 
picture is not shown twice 

COUNT — Keeps track of the number of 
pictures shown. 

OFF — stores POKE location 752, turns off 
cursor 

KOLOR — holds the RANDOM number used 
to POKE into locations 710 & 712, which 
control the background and text window colors. 

The rest of the variables are used as simple 
counters, for delay statements or PLOT and 
DRAWTO routines. 



Take-apart. 

Lines 0-5 — Sends program to initialize vari- 
ables at Line 15000. 

Lines 6-19 — Displays title page and gets 
child's name. 

Lines 20-35 — Child selects level of diffi- 
culty and program assigns variables for the 
appropriate level. 

Lines 40-90 — The routine that draws the 
pictures and stores the correct answer for the 
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computer to compare to the child's response. 

Line 95 — Sends program to the subroutine 
to display clues assigned to that level, and then 
on to the input routine. 

Lines 100-1110 — DATA for the eleven 
pictures. 

Lines 1500-1512 — The answer INPUT 
routine. 

Lines 1950-1960 — Reward sequence. 

Line 1962 — Selects random number for 
background color and text window. 

Line 1963 — Sends program to randomly 
select a new picture. 

Lines 2000-2005 — Incorrect answer 
sequence, sends program back for clues so child 
can enter the correct answer. 

Lines 4000-4030 — Sequence to randomly 
select a picture and check to see if picture has 
already been used, if so program goes back to 
select another. 

Lines 4060-4079 — Ending sequence — 
based on performance, selects an overall rating 
and asks if child would like to try again. 

Lines 5000-5100 — Clues for Level 1. 

Lines 6000-6100 — Clues for Level 2. 

Lines 7000-7100 — Clues for Level 3. 

Line 8000 — Level 4 offers no clues, so 
program is returned to answer input routine. 

Line 13000 — Routine to POKE out 
BREAK key, which must be done after each 
graphics mode change. 

Line 13500 — TRAPS keyboard errors and 
returns program to the proper SPOT. 

Line 14000 — Sets graphics mode and 
screen color for pictures, turns off cursor. 



REM WHAT IS IT? LW.LIHSOH 

5 G05UB 15eoe:GRflPHIC5 Q2 : G05UB BRK:PO 
KE 710,48:P0KE 712.48:P0KE 708,26:Rfl=Q 
O:Hfi=«0:POKE OFF,Oi 

6 FOR D=Q2 TO 16 STEP Q2:P0SITI0H D,OG 
:? B06; "'It": POSITION 0,02:? ttQ6;"%":N 
EXT D 

7 POSITION Q2,01:? ttQ6;"\ WHAT IS IT? 
^•• 

9 POSITION 05,06:? ttOe 

TIOH 02,09:? ttQ6;"r 

T = 17:TRiiP QTRAP 

11 FOR 0=01 TO 100a:NEKT D:P0SITI0N 06 

,09:? tt06;TS: POSITION 02, Q9:? «Q6;' 



At": POST 
:5P0 



12 POSITION 03,04:? ttOe^'what iS":POSI 
TIOH Q5,05;? tt06;"' your nawe^ " 

13 P OKE OFF, 01:? :? :? ■■ l«HJ:T»as|||J! 

laan erases name" 

14 POKE 755,Q2:P0KE KEV , 0255 : OPEN «01, 
04,Qe,"K:":P0SITION 07,09:F0R 5> = Q1 TO 
12:P0KE ?02,64:P0KE 694,00 

15 GET aQl,a:IF fl=fll55 THEN 19 

16 IF A<065 OR fl>«90 THEN A=032 

17 IF 6=032 OR 0=0126 THEN POSITION 07 
,09:? tt06;TS:CL0SE ttQl:MflMES="" STRAP 
TRAP: GOTO 14 

18 ? tt06;CHRSCAJ; :NAMESfLENCNAMESJ+Qll 
=CHR$tAJ :HEKT 

19 IF D>12 OR MAMES="" THEN fl=032:G0T0 
17 

20 FOR &=Q1 TO 052:NEHT D:POKE OFF, 01: 
CLOSE ttQl:GOSUB 16808 



27 TRAP «29:CL05E ttQl 

28 POKE KEV,0255:P0KE OFF, 01:? :? "Uha 
t level, "; NAMES, ■"?•■;" Q B B H" 

29 POKE 702,64:P0KE 694,Q0:CL0SE ttl:60 
SUB BRK:OPEN aoi , 04, 00, "K : " : GET tt01,L: 
K8=6 

30 IF L=049 THEN L=Qe : LU=01 : CLOSE ttOl : 
GOTO PICK 

31 IF LrSO THEN L^IOOO : LU=Q2 : CLOSE ttOl 
:GOTO PICK 

32 IF L=51 THEN L=2800 : LU=«3 : CLOSE ttOl 
:GOTO PICK 

33 IF L=Q52 THEN L=3e08 :LV=Q4 : CLOSE ttO 
l:GOTO PICK 

34 IF L<049 OR L>Q52 THEN GOTO 029 

35 IF L<049 OR L>052 THEN GOTO 029 
48 GOSUB KOLOR 

58 READ A,B,C,»,E,F,G 

68 PLOT A,B:DRAWTO C,D:&RAWTO E,F:IF G 
=-01 THEN TEMPS="H0USE":G=0e:H0U=99:G0 
TO 118 

61 IF G=-Q2 THEN G=Qie : TEMP$="STAR" : ST 
A=199:60T0 098 

62 IF G=-Q3 THEN G=028 : TEMP3="B0H" : BOK 
=299: GOTO 098 

63 IF G=-Q4 THEN G=38 : TEMPS="KITE" : KIT 
=399:G0T0 090 

65 IF G=-Q5 THEN G=58 : TEMPS="B00K" : BOO 
=599:G0T0 098 

66 IF G=-Q6 THEN G=60 : TEMPS="TV" : TU=69 
9:G0T0 090 

68 IF G=-Q7 THEN 6=88 : TEMP5="TRUCK" : TR 
U=899:G0T0 915 

69 IF G=-08 THEN 6=98 : TEMP5="F00TBALL" 
:F00T=999:G0T0 1020 

70 IF G = -09 THEN 6 = 180 : TEMPS = "'FACE" : FA 
C=1899:G0T0 098 

80 G8T0 50 

98 IF LV=Q4 THEN 6=08 

95 GOSUB CLUE*L+G:60T0 CUE 

99 RESTORE 100:GOTO 048 

100 DATA 58,30,80,15,118,38,0,110,30,5 
0,38,50,70,8,58,78,118,78,118,38,8,118 
,30,138,20,130,60,0 

181 DATA 138,69,110,70,110,70,8,185,5, 
130,20,130,28,0,80,15,185,5,105,5,0 

182 DATA 75,16,75,5,65,18,0,65,10,65,2 
1,65,21,8,68,24,60,18,71,4,0,71,4,75,4 
,75,4,8,65,10,68,10,60,10,0 

103 DATA 75,55,75,78,85,78,8,85,78,85, 

55,75,55,8,70,50,58,50,58,40,8,58,48,7 

8,48,70,50,0,64,49,64,41,64,41,8 

184 DATA 59,45,69,45,69,45,8,98,40,98, 

50,182,50,8,102,58,102,48,90,48,0,91,4 

5,101,45,181,45,8,96,41,96,49,96,49,-1 

118 READ H,I,J,K,L1 

115 PLOT H,I:PLOT J,K:IF L1=-Q1 THEN G 
OTO 090 

116 GOTO 110 

120 DATA 61,4,59,3,0,57,2,68,2,0,66,1, 
66,4,8,64,3,52,2,8,55,1,52,1,8,68,1,58 
,8,0,64,0,83,63,-1 

199 RESTORE 200 : GOTO 048 

200 DATA 83,8,186,66,50,32,1,50,32,116 
,32,60,66,1,68,66,83,8,83,8,-2 

299 RESTORE 388:6010 048 

380 DATA 100,20,80,10,68,28,0,60,28,80 
,30,100,28,8,188,20,108,50,80,60,8 

381 DATA 80,60,68,58,68,20,0,88,38,80, 
60,88,60,-3 

399 RESTORE 488:6010 048 

408 DATA 60,18,40,38,60,62,0,68,62,88, 

30,60,18,8,60,62,64,70,73,73,0,73,73,7 

7,65,85,68,9,85,68,90,66,95,70,0 

481 DATA 95,70,183,65,193,65,8,60,11,6 

0,61,60,61,9,41,30,78,30,78,38,-4 

499 G=Q40: GOSUB KOLOR: FOR W=50 TO 102: 

K=a?:V=76:Z=61 

502 PLOT H,H:DRAWTO Y,Z:NEKT W:TEMPS=" 

CONE" :C0N=499: POKE OFF, 01:6010 098 

599 RESTORE 60O:GOTO 048 

680 DATA 102,70,62,70,62,22,8,62 22,10 

2,22,102,78,0,102,70,108,64,108,16,0,1 

88,16,68,16,62,22,8 

601 DATA 198,16,102,22,192,22,0,66,18, 

186,18,186,66,8,64,28,194,29,184,68,0, 

76,28,72,28,72,34,9 
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602 DftTft 74,32,72,32,72,32,8,80,34,86, 
28,84,28,0,84,28,84,34,80,34,0,88,28,3 
2,34,92,34,0,88,34,92,28,92,28,0 

603 tXtXA 76,42,76,48,76,48,0,80,48,80, 
42,84,48,0,84,48,84,42,84,42,0,68,56,6 
4,56,68,62,0,68,62,64,62,64,62,0 

604 DfftTfl 72,62,72,56,76,56,0,76,56,76, 
62,72,62,0,84,56,80,56,80,62,0,80,62,8 
4,62,84,62,0,88,56,88,62,88,62,0 

605 OflTfl 92,56,88,60,92,62,0,100,56,96 
,56,100,62,0,100,62,96,62,96,62,-5 

699 RESTORE 700: GOTO Q40 

700 Dftlift 112,70,50,70,50,30,0,50,30,11 
2,30,112,70,0,112,70,120,62,120,22,0,1 
20,22,58,22,50,30,0 

701 DflTfl 120,22,112,30,112,30,0,58,36, 
58,66,102,66,0,102,66,102,36,58,36,0,8 
8,24,84,24,34,26,0,84,26,88,26,88,24,0 

702 DftTii 88,24,102,6,102,6,0,84,24,72, 
6 , 72 , 6 , , 108 , 38 , 106 , 38 , 106 ,36,0, 106 , 36 
,108,36,108,38,0 

704 DiOTft 108,44,106,44,106,42,0,106,42 
,108,42,108,44,0,108,50,106,50,106,48, 
, 106 , 48 , 108 , 48 , 108 ,58,-6 
799 GOSUB KOLOR: RESTORE 804 

802 REftD a,B,C,D 

803 PLOT A,B:DRaWT0 C,D:IF D=0 THEN GO 
TO 850 

804 DrtTfl 90,30,90,38,92,22,92,44,94,20 
,94,48,96,18,96,50,98,14,98,52,100,14, 
100,54,102,12,102,56 

805 DATA 104,10,104,57,106,9,106,58,10 
8,9,108,59,110,8,110,59,112,7,112,60,1 
14,7,114,60,116,6,116,61 

806 DATA 118,7,118,60,120,7,120,60,122 
,8,122,59,124,9,124,59,126,9,126,58,12 
8,10,128,57,130,12,130,56 

807 DATA 132,14,132,54,134,14,134,52,1 
36,18,136,50,138,20,138,48,140,22,140, 
44,142,30,142,38,30,62,32,66 

808 DrtTii 32,66,93,47,91,45,30,62,0,0,0 

,0 

849 IF 0>01 THEH GOTO 802 

850 G=70 : TEMP$="L0LLIP0P" : L0L=799 ! POKE 
752,01:G0T0 090 

899 RESTORE 90O:6OTO 048 

900 DflTfl 76,12,58,12,52,18,0,52,18,52, 
58,76,58,0,76,58,76,32,76,12,0,76,32,5 
2,32,52,32,0 

901 ttaiti 81,33,81,13,77,9,0,77,9,57,9, 
r{^^42'5^sPirf^AF'21'33,0,21,33,17,3 
5,17,39,0,17,51,21,49,21,43,0 

902 DATA 21,43,17,39,15,43,0,15,43,15, 
47,17,51,0,17,51,17,59,23,65,0,23,65,3 
1,65,31,55,0,31,55,36,52,44,52,0 

903 DATA 44,52,47,55,47,65,0,47,65,101 
i*l^^?U^i£®{{?^£l5A^*'^'52,114,52,0,ll 
4, &2, 117, 55, 117, 65, 

904 DATA 117,65,137,65,144,58,0,144,58 
,144,36,141,33,0,141,33,81,33,81,33,0, 
34,66,36,70,44,70,0 

905 DATA 44,70,46,66,46,66,0,104,66,10 

916 PLOT 131,K:DRAHT0 147,Y:PL0T 14, XI 
.■DRAMTO 29,Y1:H1 = H1+«1:Y1 = Y1 + Q1:K=K+«1 
:V=Y+«1:IF Yl=62 THEN GOTO 940 
919 GOTO 916 

940 X=38:Y=H 

941 PLOT 23,K:DRflWT0 140, V : H=K+Q1 : YrX : 
IF y=41 THEN PLOT 24,43:DRAWT0 140,43: 
GOTO 950 

944 GOTO 941 

950 K=58:Y=K:K1=K:V1=Y 

951 PLOT 38,H:0RAHT0 42,Y:PL0T 168, Kl: 
DRAHTO 112,Yl:Kl=Kl+«l:YlrKl:K-Kl:V=Yl 
:IF Yl=62 THEN GOTO «90 

955 GOTO 951 

999 RESTORE 1OO0;GOTO 040 

^?2*'^S^J'* 20,40,24,46,30,54,0,30,54,40 

iS*'4l*'!S5'S;^''''5*'S8,66,72,70,O,72,7O, 

88,70,102,66,0,102,56,110,64,120,60,0 

1001 DATA 120,60,130,54,136,46,0 136% 

^A^f?A*2A^^^'^'*'«'^"6'34,13O,26,i20,20 

,0,120,20,110,16,102,14,0 

h^^a ?gTA 102,14,94,12,80,10,0,80,10,7 

^45*'Ai^ii'*4'^'^^'i^'58,16,40,20,0,4O,2O 

,30,26,24,34,0,24,34,20,40,20,40,0 



1003 DATA 40,60,50,61,50,61,0,40,60,50 
,62,50,62,0,40,60,50,63,50,63,0,40,20, 
50,19,50,19,0,40,20,50,18,50,18,0 

1004 DATA 40,20,50,17,50,17,0,120,60,1 
iSA*iA^49A^^J*' ^20, 60, 110,62, 110, 62,0, 
120,60,110,61,110,61,0 

1005 DATA 120,20,110,19,110,19,0,120,2 
0^110,18,110,18,0,120,20,110,17,110,17 

1020 K=34:Y=K 

1022 PLOT 66,X:DRAMT0 96, Y : X=X+Q2 : Y=X : 

IF Y=44 THEN GOTO 1030 

1028 GOTO 1022 

1030 H=72:Y=X 

1032 PLOT X,Q32:DRAWT0 Y,44 :H=X+03: YrX 

:IF Y>92 THEN 1040 

1038 GOTO 1032 

1040 K=«20:Y=X:H1=X:Y1=Y 

1042 PLOT Q40,X;DRAWT0 50,Y:PL0T 110, X 

1 : DHAHTO 120 , Yl : X1=X1*Q1 : Y1=X1 : K=X1 : Y= 

Yl:IF Yl=62 THEN GOTO Q90 

1048 GOTO 1042 

1099 GOSUB 1107:RESTORE 1100:G0T0 50 

1100 DATA 65,13,97,13,105,25,1,105,25, 
105,57,97,65,1,97,65,65,65,55,57,1,55, 
57, 55, 25, 65, 13, 1,67, 27, 73, 27, 73, 33^1 
1102 DATA 73,33,67,33,67,27,1,89,27,95 
,27,95,33,1,95,33,89,33,89,27,1,65,49, 
??A5''A?5i^^'i'''3'59,89,59,93,55,l 
1104 DATA 93,55,97,49,89,51,1,89,51,73 
,51,65,49,1,89,55,89,55,73,55,1,65,49, 
73,55,73,55,1,65,49,73,55,73,55,1 
^^S^^S^T''* ^7,49,89,55,89,55,1,79,35,79 
'43.83,43,1,83,43,83,45,77,45,1,77,45, 
77,35,79,35,1,73,29,69,29,69,33,1 

1106 DATA 89,29,93,29,93,33,-9 

1107 GOSUB KOLOR :X=73:Y=X 

1108 PLOT X,51:DRAHT0 Y, 59 : X=X+Q4 : Y=:X : 
IF y-93 THEN RETURN 

1110 GOTO 1108 

^ISS ^OK? KEY,«255:S0UND 00,040,010,14 
:F0R D=Q1 TO 020:MEKT D:S0UND 06,00 00 
,00:? :? :? ■■ This is a ...■■; 
1501 SP0T=1507:TRAP OTRAP:OPEN ttQl,Q4, 
00,"K:":GOSUB BRK 

1505 FOR D=Q1 TO 12:GET B01,A:IF A=015 
5 THEH 1510 

1506 IF A<«65 OR A>Q90 THEH A=«32 

1507 IF A=Q32 OR A=Q126 THEN ? ■'IS"':CL0 
SE tt01:GS="":G0T0 2005 

f 508 ? CHR5 (A3 ; : 6$ iLEN <GS J +01} =CHRS tAJ 

1509 IF 0>12 THEN A=«32:G0T0 1507 

1510 IF GS="" THEN A=Q32:G0T0 1507 

1511 IF G$=TEMP5 THEH CLOSE ttQl:65="": 
GOSUB 1950 

1512 CLOSE ttOl: GOSUB 2000 

1950 GRAPHICS 02+16: POKE 712, 144: POKE 

P^k GOSUB BRK: POSITION 04,03:? «06,-"t 

hatSs GB5Hai":HA=RA+Ql:WA=WA+Ql 

Af52 POSITION 05,09:? tt06;RA;" [dimfclj 

^25L?°^Si^°'' 09-LEH (NAMES) /Q2, 06:? »6 
; NAnc5; yy" 

H^SrrSS""^ Q0,83,Q1O,O1O:FOR D-Ql TO Q 
20:MEXT D:S0UN0 «O,66,O10,Q10:FOR D=01 

TO 020: NEXT D 
1955 SOUND «O,47,O1O,Q10:FOR D-Ql TO 
20:NEXT DiSOUND 00, 040, 010, OlO : FOR 0=0 
1 TO a40:NEXT D 

1957 SOUND Q0,47,Q1O,Q10:FOR 0=01 TO 
20:MEXT D:SOUND 00, 040,010, OlO :FOR D=Q 
1 TO O40:NEXT D:SOUND 00,00.00,00 
1960 POSITION 04,04:? «o4 j t5 : pfisiTIOH 
07,07:? a06,-TS:F0R D=Q1 TO 35:HEXT D:C 
0UHT=C0UNT+Q1:IF C0UNT=07 THEN 4060 
1962 HO=INT (RHD (031*15) : GOTO PICK 

2000 POKE 710,00:? "H":? " MeU, "■; 
NAMES;". . , Try again!":HA=MA+QL 

2001 SOUND O0,84,O10,14:FOR D=Q1 TO 01 
5:NEXT D:SOUHD 00,101,010, 14 :FOR D=Q1 
TO 015:MEXT D:SOUND 00,00^00,00 

2003 FOR D=Q1 TO 150:NEXT D 

2005 FOR D=01 TO «32:NEXT D : G5="" : XO=P 

EEKt712) :P0KE 710, XO:? "■H":GOTO 090 
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4000 FOR J=00 TO PH : POOL t J) =J : NEKT J:F 
OR J=PH TO 00 5TEP -1 :K=IHT CRMD COOJKf J 
+«1J) :PICTURE=POOLCJ) :POOL{J)=POOLiKJ 
4010 POOL CKJ=PICTURE: NEXT J:PICTURE=CP 
ICTl]RE*lflO)+99 

4015 IF PICTURE=HOU THEN GOTO PICK 

4016 IF PICTURE=5Tfl THEK GOTO PICK 
4817 IF PICTURE=BOK THEM GOTO PICK 
4018 IF PICTURE=KIT THEM GOTO PICK 
4013 IF PICTyRE=BOO THEM GOTO PICK 

4020 IF PICTURE=TV THEN GOTO PICK 

4021 IF PICTURErTRU THEM GOTO PICK 

4022 IF PICTURE=FOOT THEM GOTO PICK 

4023 IF PICTURE^FflC THEM GOTO PICK 

4024 IF PICTURE=COH THEM GOTO PICK 

4025 IF PICTURE=LOL THEM GOTO PICK 

4030 GOTO PICTURE 

4060 IF Hft=Q7 THEM REHfiRD$="EII3I13uQ3 



GREfiT! ! 
GOOD! ! I 
PRETTY I 



4062 IF HA=Q8 THEM REHftRDS="! 
4064 IF HA=Q5 THEM REWARD^ 
4066 IF MA>Q9 THEN REWARD^ 

4070 GRAPHICS OsPOKE 710,212 

4071 ? :? :? :? ;REWiftRD5;:? :? :? jNAM 
ES;", you answered ";RA|" out of "jWift: 
? "questions correctly!" 

4074 GOS UB BRK: POKE 752, 01 : POSITION 05 
,010:? "IHJL'MM ".:Ly:POKE 0FF,01:P0K 
E KEY,0255:SP0T=4079 

4076 ? :? :? "Mould you like to try ag 
ain? ■EBCQi"; :OPEH ttQi,Q4,Q0,"K:":G0S 
U6 BRK 

4077 GET «01,A:IF 0=83 THEN CLOSE ttQl : 
RUN 

4079 POKE OFF,QO:POKE 16,192:P0KE 5377 
4, 247: GRAPHICS OjCLR :POP :END 



HOUSE 
STAR 
i BOX i 
; KITE 
COKE 

BOOK 
. TV . 
LOLLIPOP: 
TRUCK " 
FOOTBALI 
t FACE 



; RETURN 



5000 ? 

5010 ? 

5020 ? 

5030 ? 

5040 ? 

5050 ? 

5060 ? 

5070 ? 

5080 ? 

5090 ? 

5100 ? 

6800 ? 

[■EDi" 

6010 

aa33i"' : RET URN 

6020 ? " Buiniii 

DHBl"' : RETURN 

6030 1 " miMM 

ai": RETURN 

6848 ? " MMSM 

IOi":RETURN_ 

6850 ? " Bililiia 
ffiHai" : RET URN 

6060 ? " Eisiai 

QSi" : RETURN 

60 70 ? " MMSM 
fSEM" : RET URN 
6080 ? " ■tHiW:« 

HMi": RETURN 

6030 ? " MMM 
Efli": RETURN 

6100 ? " MS3Sm 

aaa": RE TURN 

7000 ? "KnEBai annnani 



"SRETURN 

":RETURN 

RETURN 

:RETURN 
RETURN 
:RETURM 
RETURN 

:RETURM 
RETURN 
":RETURN 

:RETURM 
MMM 

mnsm 

MEBSi 

mSMMM 

MMMalM 



Bb mil m » tiB 

masM 



m 

I 

I 

Km 

■333 

m 

E! 



KEHM" : RETURN 



EDSCB 

RETURN 
RE TURN 

■Mis: 



7010 ? 

OMM" 

7020 ? 

msai" 

7830 ? 

HOSH" 

7840 ? 
ECHi": RE TURN 

7050 ? "lOillEa 

liECai" : RETURN 

7060 ? " K1E9 

LUitJI": RE TURN 

7070 ? "WMMM 

HilJfli":RETURM 



I RE TURN 



B T [\ iiM Urn 



»nmm 



mMMM 

mMSM m 

■31 

I 

i 
BOH 

I m 



mmum 
HumiM 



m^!3M MEMMm 



7080 ? "Haaai 

CEDBB" : RETM£M 
7220?_"H3M3 
■a«i!iai"jRETURM 
7100 ? "HaiEDi 

IS|":RETURM 

' : RETURN 
13000 POKE 16,S4:P0KE 53774, 64 : POKE 70 
2,64:P0KE 694,00 : RETURN 
13508 A=Q32:G0T0 SPOT 

14000 GRAPHICS Q6:G0SUB BRK:COLOR 01:P 
OKE OFF,«l:POKE 710, tK0«16) +04 :POKE 71 
2, PEEK 1710) :RETURM 

15000 Ql=l:OOnoi-(ii: 02=01+01:03=02+01: 
04=03+01 : 05=04+01 : 06=05+01 : 07=05+02 : 08 
=07+01:09=08+01:010=09+01:015=010+05 
15005 020=018+018 : 029=020+09 : 032=020+0 
18+02:040=020+020:049=040+09:052=040+0 
10+02 

15010 065=65:090=90:0126=126:0155=155: 
0255=255 : CUE=1500 : CLUE=5e88 : PICK=4088 : 
BRK=13000:0FF=752:KEY=764:K0L0R=14fl0e 
15020 OTRaP=1350O:PN=O18:DIM NAME5ti2J 
, REWARDS C15J , TEMPS tOlO J , GS tl5J , TS {12) , 
POOLtPN) :TS=" 
15038 RETURN 

16088 GRAPHICS 00:GOSUB BRK:POKE 710,9 
8 

16818 ? " This prograM will show you 
soMe pictures and picture words. T 
here are four difficulty levels." 
16828 ? :? :? "■I^SMM This level s 
iwply asks you to type the given pictu 

re word." 

16030 ? :? :? "BHIlMBi This level g 
ives you sowe words to choose froM to 

find the picture w ord." 
16040 ? :? :? "iaanilEi This level g 
ives you sowe very sinilar words to c 
hoose froM." 
16850 ? :? :? 
sks you to 
without any 



'ff!MlHE9 This level a 
spell the picture word 
clues. ":RETURN 



CHECKSUM DATA 
(See page 23) 



8 DATA 890,841,269,928,121,895,855,674 

,815,647,244,785,377,17,670,9028 

27 DATA 960,695,908,259,165,174,742,74 

2,745,164,671,51,60,790,775,7911 

65 DATA 776,398,59,488,567,619,998,630 

,40,526,680,692,64,689,662,7872 

115 DATA 973,695,694,418,35,422,363,32 

8,426,51,355,41,845,434,591,6671 

681 DATA 620,118,205,175,656,438,541,6 

41,387,222,969,313,730,95,484,6514 

886 DATA 278,577,591,459,217,446,331,8 

29,27,912,651,885,375,227,736,7533 

948 DATA 794,959,744,393,54,751,661,38 

4,64,895,166,747,176,984,898,8598 

1828 DATA 724,995,111,727,295,890,738, 

681,641,527,516,529,393,679,33,8471 

1110 DATA 725,344,209,215,30,994,325,9 

0,254,761,392,236,356,794,789,6434 

1954 DATA 157,713,881,194,129,631,243, 

378,31,620,256,854,854,846,861,7568 

4819 DATA 832,576,886,808,795,824,849, 

425,805,740,626,218,726,828,588,18518 

4876 DATA 337,352,556,241,48,480,770,7 

67,3,136,466,256,509,719,937,6577 

6010 DATA 686,983,898,259,119,581,927, 

612,667,557,685,749,248,448,996,9247 

7858 DATA 888,838,482,739,427,161,94,6 

48,871,239,338,743,583,526,61,7542 

16808 DATA 333,398,184,853,982,44,2783 



MORE DISK DRIVE FOR YOUR MONEY ....... 

In fact, with the ASTRA 1620, you get two superb Disk Drives for the 
price of one. The ASTRA 1620 is Single or Double Density (software 
selectable) and completely compatible with ATARI DOS or OSA+ DOS. 
When used as Double Density, the ASTRA 1 620 has the same capacity 
as Four ATARI 810® Disk Drives. 



DOUBLE 

OR 
SINGLE 
DENSITY 




The ASTRA 1620 can be 
either single or double 
density, depending on the 
software selected. One 
drive can be configured for 
single density and the 
other drive for double den- 
sity, or any combination 
desired. The ASTRA 1620 
is compatible with virtually 
any software available for 
ATARI'S Disk Drives. The 
ASTRA 1620 is smooth, 
quiet and fast. In Single 
Density mode, the ASTRA 
1620 stores 88K bytes of 
programs or files. In Dou- 
ble Density, the ASTRA 
1620 stores 176K bytes, 
simply twice as much. 



TWO DRIVES ... Yes, two superb disk drives in the same size enclosure normally used for one drive. The ASTRA 1620 measures 7%" wide x 
11%" deep X 5%" high. 

Two drives will open a new dimension of computing for you. The program disk can be in one drive and the data disk can be in the other. This will 
eliminate time consuming disk changes. Backing up disks and copying files will never be easier. Just follow the instructions on the screen and 
walk away. The job will be completed within minutes. We have simplified copying from single to double density. With two drives, it's just as easy 
as copying in one mode. No disk switching! 

Two double density drives give you the power that much larger and more expensive computers have without giving up any of the features avail- 
able on the ATARI® Home Computer. 

EASY TO USE ... The ASTRA 1620 comes complete with everything you need. Just plug it in, chain it up, and turn it on. 

The ASTRA 1620 comes with OSA+ DOS (The best disk operating system available for the ATARI® computer!). The OSA+ DOS is completely 

compatible with all existing ATARI DOS files. Because the OSA+ user manual is very complete and technical, we include our own simplified user 

manual. Between the two furnished manuals, you have the information necessary to perform any task required of your disk drive. 

The ASTRA 1620 also contains a data cord, power transformer, and operator manual. 



r 
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5230 Clark Avenue, Suite 19 
Lakewood, California ^07^2. 



Phone 
(213) 804-1475 
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terDOS 



16K Disk 



by Gordon L. Banks 



PROBLEM: Suppose that you, as many of us do, 
have several AUTORUN.SYS files that are twelve 
sectors long. Since the filename and the length are 
identical, how to you remember what each one does? 
Usually you have to boot that disk to find out. This 
is too time consuming. 

SOLUTION: Modify your DOS to recognize file- 
names other than just AUTORUN.SYS as the autorun 
file. 

HOW: When DOS is booted and loaded into RAM, 
memory locations 5903 through 5914 contain the 
name recognized by DOS as the autorun file. All we 
have to do is POKE in our own preference, and then 
SAVE the modified version of DOS back onto the 
disk., The following program, AlterDOS, does just 
that. But what new name do we use? One idea with 
merit is to alter DOS to recognize any eight-character 
filename with the .ARS extender. With the asterisk 
(*) wildcard replacing the eight-character filename, 
you can use those eight characters to give your 
autorun files meaningful names, such as RENUM- 
BER, or SCRNDUMP, or whatever you like. Any 
name would work, as long as it has the .ARS (Auto- 
RunSys) extender. Then you could also keep addi- 
tional autorun files on the same disk, but in an 
inactive status, by changing the extender to something 
like .ARF (AutoRunFile). Your DOS-copying func- 
tions would also copy these more readily than files 
with the .SYS extender. 

However (and you just knew there would be a 
"however," didn't you?), there is a serious drawback 
to this plan. Files still named AUTORUN.SYS 
won't work until renamed. This means renaming all 
current and future AUTORUN.SYS files before you 
use them. Swapping disks with friends will even- 




tually lead to your modified DOS being in the hands 
of someone el.se. Think of the problems they will 
experience when their ALJTORUN.SYS files won't 
work. Also, please believe me, there will come a time 
when you will forget and try to boot up a disk with an 
AUTORUN.SYS file, and when it doesn't work, 
you do a lot of head scratching. 

My recommendation is to change your autorun 
identifier to A*.SYS. This method still allows you to 
use seven characters with which to define your 
autorun files with meaningful names. For instance, 
isn't ARENUMBER.SYS or ASCRNDMRSYS 
really an improveinent? This way, if a friend winds 
up with your modified version of DOS, it won't 
matter, and an autorun file named AUTORUN.SYS 
(yecch!) will still be recognized by DOS, just as usual. 

So, consider these two possibilities — along with 
your own ideas. Maybe you'll come up with some- 
thing better and share it with the rest of us. Just insert 
your preference into Line 160 where I have 
"A*.SYS". n 



le REM ftLTERDOS 

29 REM . .by Gordon L Banks 

30 REM 

48 GRAPHICS OrDIH ASC4e]:P0KE 752.1 
58 REftD AS: IF ftS="«" THEH 168 

68 ? AS; GOTO 58 
78 DATA 



ALTERDOS 



88 DATA This prograi* will alter your D 

05 to 

98 DATA allow i«re descriptive nanes f 

or your 

188 DATA AUT0RUH.SY5 files. YOU Will h 

ereafter,be able to use nanes that inc 

lude the 

118 DATA letters of your choice in lie 

u of the,'x's shown in this exawle. 
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128 DftT<J , l>:Axxxxxxx.SY5,, CNO 

te that a file naned autorun.SYS, will 

still function as nornal.}, 
130 DATA Now nanes such as ARENUieR.SY 
S or,A5CRNDi«>.5YS tfor RENUrffiER or SCR 
EEH-,0UMP3 nay be used. 
148 DATA ,Just reneMber to start the n 
ane with, an A and end with .SYS., 
158 DATA If you are ready press RETURN 

168 INPUT A$: RESTORE 188 : AS="A».SYS" 
178 IF LENCASJ>12 THEN ? :? "[2 NO MORE 

THAN 12 CHARACTERS ALLOtCD ." :GOTO 230 
188 FOR 1=1 TO LENCA$}:P0KE 5982+1, ASC 
(AStI,I3 3 :NEKT I 

138 FOR I=5583+LENfA$) TO 5914: POKE I, 
155:NEKT I 

288 ? :? " Now writing new DOS. SYS fil 
e." 
218 REM HIO 36,ttl,8,8,"D:filenam.ext" 

unlocks file if locked. 

228 HIO 36,itl,8,8,"D:D0S.SYS":CL0SE ttl 
:OPEN ttl, 8, 8, "D: DOS. SYS": GRAPHICS 8:? 
"I'M DONE,":? "AND YOU'RE"; 
238 POKE 752, 8: END 



CHECKSUM DATA 
(See page 23) 



18 DATA 225,335,768,444,383,958,831,64 
2,278,555,878,432,653,294,678,8326 
168 DATA 828,688,583,835,346,643,778,6 
51,5344 



DISK WIZARD n 



THE MOST COMPLETE UTILITY PACKAGE 
FOR ATARI* COMPUTERS AT ANY PRICE 

100 % MACHINE LANGUAGE • SINGLE LOAD • MENU DRIVEN 

THIS USER FRIENDLY PACKAGE INCLUDES THE FOLLOWING POWERFUL 
PROGRAMS FOR THE ATARI' 400/800/XL SERIES COMPUTERS (40K REQUIRED} 

DISK BACK-UP— SINGLE/DOUBLE DENSITY • SUPPORTS 1 OR 2 DRIVES 

• ALLOWS BACKUP OF DISKS PROTECTED BY BAD SECTORING • FAST 
COPY OPTION • SECTOR STATUS SUMMARY • OPTIONAL PRINTOUT OF 
SECTOR STATUS • DISK MAPPING 

DISK EDIT — SINGLE/DOUBLE DENSITY* DISPLAY/MODIFY/PRINT ANY 
SECTOR • SECTOR DISPLAYED IN HEX ASCII/ATASCll • WORKS WITH 
ANY FORMAT • SCAN SECTORS FOR A SERIES OF BYTES OR A STRING 

• DISPLAY/PRINT DIRECTORY • TRACE/REPAIR FILE LINKS •RECOVER 
AND AUTOMATICALLY VERIFY DELETED FILES • FORMAT DISKS WITH 
AUTOMATIC LOCK OUT OF BAD SECTORS • DECIMAL/HEX NUMBER 
CONVERSION 

DISASSEMBLER — single/double density • disassemble from 

DISK BY SECTOR NUMBERS • DISASSEMBLE COMPOUND BINARY F ILES 
BY FILE NAME • OUTPUT TO SCREEN OR PRINTER • SELECTABLE 
MNEMONIC DISASSEMBLY WITH OVER 400 STANDARD ATARI MEMORY 
LOCATION NAMES 

DISK SPEED — VERIFIES/ALLOWS ADJUSTMENT OF DISK SPEED • BAD 
SECTORING (810 ONLY) 

INCLUDES COMPREHENSIVE MANUAL WITH MANY USAGE EXAMPLES 



ORDERING INFORMATION 

For fast delivery, send certified 
check or money order, 
MASTERCARD & VISA accepted. 
(N.Y. Residents add 7% sales taxT 
Ptione orders accepted on CO.D. 
and charges. 



$29^ /^.^^/ 



Manual Only 
$10.95 



"ATARI is a registered Trademark of Atari, Inc. 



SOFTWARE. INC. ^ 

100 aUARTZ WAY 
SYRACUSE, NY. 13219 

ORDERS TOLL FREE 
1-800-732-0320 

Info, and N.Y. Residents 
1-315-488-0485 
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Put a Monkey Wrench 
into your ATARI 800 or XL 

Cut your programming time from hioursto seconds, and have 
33 direct mode commands and functions. All at your finger tips 
and all made easy by the MONKEY WRENCH II. 
The MONKEY WRENCH II plugs easily into the cartridge slot of 
your ATARI and works with the ATARI BASIC. 

Order your MONKEY WRENCH II today and enjoy the conveniences 
of these 33 features: 



Line numbering 

Renumbering basic line 

numbers 

Deletion of line numbers 

Variable and current 

value display 

Up and dovi/n scrolling of 

basic programs 

Location of every string 

occurrence 

String exchange 

Move lines 

Copy lines 



Special line formats and 
page numbering 
Disl< directory display 
Margins change 
Home key functions 
Cursor exchange 
Upper case lock 
Hex conversion 
Decimal conversion 
Machine language 
monitor 
DOS functions 
Function keys 



The MONKEY WRENCH 11 also contains a machine 

language monitor witti 16 commands that can Pe used 

to interact with the powerful features of the 6502 microprocessor. 




3239 Linda Dr. 
Winston-Salem, N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 
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5* J f^fif you're like me, you love to write programs but 
^ -W«te to even think about the mental and physical' 
work involved in keeping track of line numbers as 
you program. After all, we geniuses need to think 
about program logic and not the next line increment! 
This utility will do four things. First, it will put line 
numbers on the screen. Second, it will check the line 
that you typed in for an error and BEEP you by 
ringing the bell. This is also known as printing 
CHR$(253) or hitting CTRL-Z. Third, it displays, 
near the top of the screen, how many variables you 
have left and, also, how much memory you have left. 
Fourth, it disables the BREAK key and the clear 
screen keys. There is also full-screen editing of the 
hnes that are on the screen. You can change the 
starting line number, or the increment, by pressing 
CTRL-3 and typing GOTO AUTO. After hitting 
CTRL-3, you can LIST your program, edit it or add 
statements. The utility will go back to the next line 
that it was working on, before CTRL-S was pressed, 
by typing GOTO NEXT. 

Although most of it is in BASIC, it uses the 
"forced read mode" to read the entire screen every 
time RETURN is pressed. This is what allows for full 
screen editing. There is a short machine language 



i *-^ 



subroutine to check the entire BASIC program for 
an error and find out how many variables have been 
defined. Both of these functions work very fast, so 
there is hardly any wait while you are entering your 
program. The program that you are typing in can 
be separated from the auto-numbering utility 
by LISTing it to the disk or cassette with the 
line numbers 0-31999. Here is an example: LIST 
'"D:YOURPROG.EXT",0,31999. This will only 
LIST your program to the disk. For a cassette-based 
system, use LIST '"C:",0,31999. Lines 32045 and 
32055 contain the REM equivalent of these state- 
ments. I suggest you type in whichever one applies, 
and then you can delete the line number and the 
REM. For disk users, fill in the name that you want 
to call your program on Line 32045. Press 
RETURN, and it will be properly LISTed to disk. 
Cassette users can use Line 32055. By using the LIST 
command, you will have to use the ENTER com- 
mand to get your program back into the computer. I 
suggest you use the SAVE command to save this 
utility and the LIST command to save your program. 
This way you can always merge the two by loading 
the utility first and then using ENTER to load your 
program. 
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The machine language subroutine is placed in a 
string (ML$) to allow access to page 6. The BREAK 
key is disabled, because it was put too close to the 
RETURN and editing keys on the 800. Instead you 
use CTRI^3 to interrupt the auto-numbering 
process. This will also restore the BREAK key for 
normal editing. 

Type in the program and use one of ANA- 
LOG'S error-checking programs, C:CHECK or 
DrCHECK. I just can't say enough about this idea 
for typing in programs from printed media. Until 
they came along, I always thought that the magazine 
was printing the wrong code. No way. I learned what 
a really lousy typist I was. At any rate, after the 
CHECKSUM DATA checks out, type RUN. The 
screen will go blank for a few seconds, while the 
utility loads the machine language subroutine into 
the string. The first thing that prints is "STARTING 
LINE NUMBER ?" Answer with the line number 
you want to begin auto line numbering with. If you 
don't answer with a number, the utility will repeat 
the question. The second thing you are asked is 
"INCREMENTS DESIRED?" Answer with the num- 
ber of lines that are to be between each line number. 
A good number is 10. This way you can insert 9 lines 
between each line that you type in, if you find out 
later that something new should be added. 

Next, the first line will appear, and the utility will 
wait for you to enter a statement. All of the keys are 
accepted, with the exception of CTRL^CLEAR and 
SHIFT-CLEAR. These keys are useless during screen 
editing. If the ESC key is pressed prior to CTRL^ 
CLEAR or SHIFT-CLEAR, it will accept the key(s). 
When RETURN is pressed, the screen blanks for a 
second. If there was no error in the line, it will click 
the console speaker to alert you that it is ready to 
accept the next line. This is so you.don't have to look 
away from whatever you are typing in. At the top of 
the screen will be the utility commands. They are: 1 . 
CTRL-3 — Use instead of BREAK key; 2. G.NEXT 
— GOTO next line number of a predefined incre- 
ment; and 3. G.AUTO — Set up new line numbers 
and increments. 

Under this is displayed how many variables are 
left and how much memory is left. The memory is 
displayed as "BYTES LEFT—'. The last two lines are 
displayed, along with the next line. If there was an 
error in the line you typed in, the console bell 
(CTRL-2) will ring, and the only thing on the screen 
will be the error line and statement following it. The 
cursor is positioned at the beginning of the line 
number. Be sure to remove the ERROR- and also 
the cursor that shows where the error is, to avoid 
getting another error. When it is corrected, press 
RETURN, and the utility will go to the next line 
number. 

You may also use the utility to delete hnes of code. 
Type GOTO AUTO and give the starting line 



number and increments of the lines that you want 
deleted. Then just hit RETURN when the line 
numbers appear. I also use it to type in programs 
from magazines and books. Sometimes the line 
numbers are not in even numerical increments (like 
in this program). When this is the case, you have to 
use the GOTO AUTO to keep changing the starting 
line number and the increments. For myself, it's 
most useful for program development from scratch. 
You may wonder why the utility only LISTs two of 
the previous program lines. In studying the listing, 
you will see that Line 32113 can be modified to LIST 
three or even four previous lines. For instance, after 
the TRAP statement, a LIST LINE-INC*3 will LIST 
the last three lines. The reason for the two lines is due 
to the Atari being in thue "forced read mode. "Even 
though the CONT is at Line 19, if there are three full 
lines on the screen (a logical line can be four physical 
lines), and the fourth line contains an error, the error 
message could cover up the CONT, and the com- 
puter never regains consciousness until SYSTEM 
RESET is pressed. In the "forced read mode," if a 
line is encountered with an error, the line is immedi- 
ately displayed again with the ERROR- message. 

(continued on page 62) 



A NEW WAY TO PLAY! 
IT'S 

QUESTIONNAIRE 



on 

Interactive^^Software 

48K Disk or Cassette $24.95 

AVAILABLE NOW. FOR ORDERING INFORMATION 
OR A FREE COPY OF THE PROGRAM 
DOCUMENTATION, CALL OR WRITE: 

INTERACTIVE SOFTWARE 

P.O. BOX 991 

BALA-CYNWYD, PA 19004 

(215) 725-9756 




MasterCard 



For All ATARI Brand Computers 

©1984 INTERACTIVE SOFTWARE. ALL RIGHTS RESERVED. 
NOT AFFILIATED WITH ATARI, INC. 
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If you are serious about personal finance... 



RKSIRLDC 



• Budget Forecast- 26 expense categories 

• Check Entry-easy data entry-scan & modify 
26 major & 36 sub-categories -information block 

• Check Search-single or multiple parameters- 
(up to seven) to search entries 

• Tabulations -detailed expense vs. budget 
comparisons by month, year-to-date, category 

• Bar Graphs- screen displays in graph form 
expenses vs. budget- by month or category - 
printing with graphic capable printers 

• Check Reconciliation -fast clearing of resident 
checks & deposits, complete summary report 

• Checkwriter- prints your custom checks 

• Printouts- most popular printers 

• Multi-Colored Graphics • Audio Enhancements 

• 7 Utility Programs • User- Friendly Operation 

• Easy To Use Instruction Manual • Audit Report 

• Handsome Tinted Plastic Storage Case 

COMPUTEi 

the Lcodmg Mogcnine 0( Home, Educational, And BecreotiorKil Computirig 

In a feature editorial. 

"If you want lo use a finance system, but 
don't want to spend several days trying to 
learn how to use one, then A Financial 
Wizard by Computari may be just what 
you need." 

"The illustrated manual that comes with 
this program is clear, direct, and very 
thorough." 

"It appears that this finance system was 
designed to achieve the best and most 
comfortable working relationship between 
the user and the program." 

"The check entry routine is the most 
attractive feature of this finance system. 
Data prompts are very clear and the cate- 
gory item names are displayed at all limes 
during data entry for your convenience." 

"The file search capabilities of this 
program are superior. You arc offered 
seven ways to look up the checks." 

"The system is disk intensive. All data is 
saved automatically and immediately 
following all routines that either enter data 
or modify it." 

"Scanning your entries is made possible 
by pressing START. You can see records 
very quickly this way." 

"This is an excellent finance system- 
entertaining, accurate, and fun to use." 

Computari's 

A Financial Wizard 1.5 

The logical choice. 

The system is designed for Atari computers Inaving a minimum of 32K 
and operating from a disl< drive. The cost is only $59.95 plus $3 for 
handling/postage. 

If your dealer does not have A Financial Wizard . . . Telephone orders 
are accepted on Mastercharge or Visa credit cards. Mail order must be 
accompanied by check or money-order or credit card #. 

Dealer inquiries invited. 

•trademark of Atari Inc. OK residents ad 4% Tax. 




CDMPUTLE^G 

'HE MAGUIME FOR AIARI COMPUTER OWNERS 



Analog magazine in a 
comprciicnisiive study of 
personal finance systems 
for Atari computers. 

"A Financial Wizard from Computari is by 
far the best of these programs and will be the 
standard of comparison for the others." 

"The check entry mode is easy to use. . . " 

"The way a Financial Wizard handles your 
tabulations is excellent. You can chart your 
actual expenses vs. your budget by month, by 
category or year to date." 

". . .where it really outshines the rest is in the 
check reconciliation." 

"In effect it gives you your bank statement on 
the screen, a complete list by month of all 
your checks and deposits." 

"A Financial Wizard has one disk that does 
everything. . ." 

"Graphics, while really not a factor in the 
quality of programs of this type, do make 
your budgeting chores a little more pleasant. 
Again A Financial Wizard comes out on top." 

"Everything about this program is excellent. . ." 



^ 'W Th.- ATARI R,.«,.jr(.. 



In a Report from Antic. 

"Like most Atarians, I am captivated by 
the graphic, color and sound capabilities 
of my machine. Nothing quite discourages 
me more than to boot up an applications 
program (personal, business, etc.) and to 
be presented with the standard graphic 'o' 
white character) on a blue screen. 

Of course the usefulness and effectiveness of 
a program is of primary importance. How- 
ever, enhancing the dullest of applications 
programs with some of Atari's charms, is a 
great asset. A Financial Wizard, a personal 
finance program by Computari's Bill 
McLachlan, is an excellent example of an 
applications program that integrates many 
of the Atari's features into a well conceived 
and executed program." 

"The use of color and sound in the data 
input prompts and error checking routines 
are so well done that it's quite simple to 
boot up the disk, follow along with the 
very clear documentation, and be 'up and 
running' in short order." 

"I give A Financial Wizard high marks in 
ease of use, documentation and perfor- 
mance. If a disk-based home finance 
package is in your future. The Wizard 
should gel serious consideration." 



Exclusively thru 



ON LINE 



I (405)751-7925 



COMPUTER CENTEPS of QKC "- 



10944 North May, Oklahotna City, OK 73120 

D CHECK ENCLOSED D VISA D MASTERCHARGE 



NAME (Print), 
Address 



City _ 

State 

Card* 



Zip. 



Exp._ 



Signature. 
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This is what can cover up the CONT, which is used 
to exit the mode. Without the CONT, the mode 
can't be exited, so we get a blank screen. While we're 
on the subject, there is also one other thing that can 
cause no exit. If you want to ring the bell and clear 
the screen, the code is: [Linenum] PRINT "[ESC 
CTRL '2 ESC CTRL -CLEAR]". If you leave out 
the leading quotation mark, an error line is generated. 
The screen is cleared and ZAP! No CONT. This one 
should be a rarity, but it did happen to me. When I 
first wrote the utility, Line 32081 wasn't in it. This 
is the ESC checking line. I added it later to insure 
that all of the keycodes could be accepted, to make 
the C:CHECK and D:CHECK kind of programs 
produce the correct data. Without this line, only 
ESC CTRL [SHIFT] 'CLEAR is masked out. At any 
rate, feel free to experiment. 

The utility consumes 27 of the 128 variables that 
you can possibly have. I did it this way to conserve 
RAM. If you need more than 101 variables, you can 
substitute the variables on Line 32061 to numbers 
and change them in the program. 

If you type RUN after you have keyed in some or 
all of your program, you will need to type GOTO 
32000 to restore the auto line numbering utility. D 



Program description. 

Lines 32060-32061 — Initialize variables 
and set screen color to blue when ANTIC is 
turned off. (Whatever color is in 712 when you 
do a POKE 559,0 is the color the whole screen 
turns. ) Use READ statement to assign variables 
to statement commands. (NEXT, ON, CLR and 
GETKEY would not normally be allowed.) Use 
READ statement to assign numbers to variables 
that are frequently used. Assigning the value of 
1 to CI and using it instead of a 1 saves memory 
(but uses a variable) every time it is used instead 
of the number 1. 

Lines 32064-32067 — Load machine lan- 
guage subroutine that checks BASIC program 
for an error and the number of variables used. 

Lines 32068-32075 — Open keyboard for 
input, disable BREAK key, clear screen, make 
speaker click, and get starting line number and 
increments. Print first line number. 

Lines 32080-32085 — GETKEY routine. 
Reads keyboard and prints to screen until a 
RETURN is encountered. Masks out CTRL- 
CLEAR, SHIFT-CLEAR. Checks for ESC key. 

(Continued on page 64.) 







QUALITY PERIPHERALS for the 

400, 800 and new XL's begins 
with the 1850 from Convologic. 

The 1850 provides a versatile interface for a Centronics compati- 
ble printer with a 1.5K byte and RS232 device/modem. Works with 
Hayes Smart modems and most other popular modem programs. 
A sophisticated and worl<able interface module at a lower price - 

$189. 

The BYTEWRITER is a multi-use EPROM burner that interfaces to 
your computer through joysticl< ports 1 and 2 or 3 and 4 (software 
selectable). The BYTEWRITER reads, writes and verifies 
EPROIMS: 2516, 2716, 2532, 2732, 2564, 2764, 68764, 27128. 

No personality modules. Will read operating 

system ROMS. 

Operational software will support, inspect and 
change, constant store, cassette and disk I/O. 
Source Code available for $35.00. 

BYTEWRITER -$1 89. 

The BYTEREADER option interfaces cartridges 
to BYTEWRITER. 

BYTEREADER -$30. 



New versions of software 

for BYTEWRITER and EXAMINER 

now available. 

BYTEWRITER Ver. 1.3 ... $20.00 

EXAMINER Ver. 1.2 $20.00 

Cartridge boards dual socketed 
for 2764's, to make 8K and 1 6K 

Cartridges $ 7.50 

Shells for cart $ 5.00 

2764 EPROM $15.00 

Each accessory is fully assembled with a 90 Day Limited Warranty. Mail Cashier's Check or Money Order for 4 to 6 
weeks delivery. Shipping and handling $4.00 domestic, $6.00 foreign, C.O.D. orders $3.00 extra. Add 4% for card charge. 
$30.00 minimum order to: 




CDnJCrDLQBiCJWC. 

Send for FREE Brochure - Dealer Inquiries Encouraged. 

421 Bay Tree Lane, Longwood, FL 32779, (305) 869-6630 



ORDERS ONLY 

1-800-227-3800 

Ext. 7024 



INFORMATION 
305-869-6630 



(MoitHCard' 




ViSA' 
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Has More In Store 



We're The Experienced Generation 
Of ATARI Experts! 

• Software — Over 1000 Titles! • Instruction 

• Hardware • 24-Hour Bulletin Board at 

• Educational & Business (6 1 7) 37 1 - 1 855 
Consultations • Shipments Everywhere 

• Authorized Service 



• ATARI 400 Replacement 
Full-Stroke Keyboard: 
$69.95 



Special Savings 

• Entire Line Of Electronic 
Arts Software Including: 

Music Construction Set 
Seven Cities of Gold 
One On One (Doctor J and 
Larry Bird) 
Word Flyer 

• Sublogic Flight Simulator 



Begin word processing with your ATARI easily and inexpensively with 
one of these specially tailored packages. You'll increase your personal 
productivity and also save money! 

For ATARI owners without a disk drive; 

• Track AT-D2 w/Printer Interface 

• Interface Cable 
■ ATARIWRITER 

• Printer Driver From APX 

• Mannesmaim Tally Spirit-80 Printer 

$799.00 (save over $100.00) 



For those who own a disk drive already: 

• Ape Face Printer Interface 

• ATARIWRITER 

• Printer Driver From APX 

• Mannesmann Tally Spirit-80 Printer 

$499.00 (save over 160.00) 



|J^^ 



New England's^l ATARI Source 

RAM COMPUTER CENTER 

427 Great Road, Acton, MA 01720 (617) 263-0418 
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Lines 32100-32111 — Turn ANTIC off for 
speed. Set up screen for "forced read mode," 
and read. Stop "forced read" and exit to 
machine language subroutine, to check BASIC 
for error and variables. If no error occurred, 
increment line by the value in the variable INC. 

Lines 32112-32114 — Clear screen. Print 
utility commands. Print number of variables 
and memory left. LIST last two lines and the 
next line number. Turn ANTIC back on and 
make the console speaker click. Return control 
to user for input of statements. 

Line 32115 — This is where the utility goes 
when you type GOTO NEXT. This insures that 
the keyboard is closed and reopened to avoid a 
129 or 133 error. Turn ANTIC off and branch 
back to LIST the last two lines and line number. 

Line 32116 — Keyboard and BREAK dis- 
able subroutine. 

Line 32120 — If we can't find a previous 
line number to LIST, we just display the current 
line number. Make sure ANTIC is on, and 
return to user for input. 

Lines 32520-32525 — If there was an error 
found in the machine language subroutine, we 
perform this routine. Find out the address of 
the line number where the error is. Get the line 
number. Place it in the variable ERRLINE. 
Alert user by ringing bell. Clear screen. LIST 
the line with the error. Turn ANTIC on. 
Position cursor over line number. Return to 
user for input. 

Line 32600 — DATA for the variables at 
Line 32061. 

Lines 32700-32704 — DATA for the ma- 
chine language subroutine. 

Line 32710 — This is where the utility goes 
when CTRL3 is pressed. Restore BREAK key 
and END. 



Basic listing. 

32800 REM KKMKMKKKKKKMWKMMKKMKMMKMMKM 

32001 REM * flUTO LIME HUMBERIMG * 

32002 REM » BY SflM MILEY SR. * 

32003 REM » ANALOG COMPUTING * 

32004 REM KKKKKMMXMMXKKKMMKKWKKmCKJtKK 

32005 REM 

32020 REM 27 VARIABLES 
32025 REM 1760 BYTES tREM5 DELETED! 
32030 REM TO SEPARATE AUTO UTILITY 
32048 REM L . "Dl : PROGMAHE . EKT" , 0, 31999 

32855 REM L . "C : ", 8, 31999 

32856 REM 

32857 REM TO GET PROGRAM BACK 

32858 HEM E . "Dl : PROGNAME . EKT" 

32059 REM E . "C ; " 

32060 RESTORE 32680: TRAP 32068: POKE 71 
2,148 

32061 READ NEKT, ON, GETKEY, ANTIC, AUTO, S 
PEAKER,CLR,C0,C1,C2,C4,C53774,C256,C16 
,C842,C203,Ci2,C13 

32054 DIM MLSt98} :A=C1:P0KE ANTIC, CO 
32067 READ N : ML5 CA, AJ =CHRS CHS : A=A+C1 :G 
OTO 32067 



32068 GOSUB 32116:? CHRS CCLRJ :P0KE SPE 
AKER,CO 

32070 POKE ANTIC, ON:TRAP 32070:? "STAR 
TING LIME MUMBER"; : INPUT LINE 
32875 TRAP 32075:? "INCREMENTS DESIRED 
";: INPUT INC:? CHR5tCLRJ:? :? :? LIN 

Call Bis 

32080'tRAP 32710:GET «C1,KEY:IF KEY=15 
5 THEN 32100 

32081 IF KEY=27 THEN ? CHRS tKEYJ ; : GET 
ttCl, KEY: GOTO 32085 

32082 IF KEY=CLR THEN GOTO GETKEV 
32085 ? CHRS {KEYJ :: GOTO GETKEY 

32100 POKE ANTIC, CO:POSITION C2,19:? " 
CONT": POSITION C2,C0:P0KE C842,C13:ST0 
P 

32110 POKE C842,C12:X=;USR!tADRfMLS3 3 :IF 
PEEK 42075 =C2 THEN 32520 

32111 LINE=LINE+IMC:? CHRStCLRJ 

3 2112 P OSI TION C 2,C0:? " [JUdCfei 

IMMHU aEHBB":? "Variables left="; 
128 -PEEK(205);" Bytes left=";FRE (COJ 

32113 ? :THAP 32120:LIST LINE-IHC»C2 :L 
1ST LINE-INC:? :? LINE;" "; 

32114 POKE ANTIC, 0H:P0KE SPEAKER, CO :G0 
TO GETKEY 

32115 GOSUB 32116:? CHR$ tCLRJ : GOTO 321 
12 

32116 CLOSE ttCl:OPEN «C1 , C4, CO, "K" : POK 
E ANTIC, C0:POKE C53774, 112 : POKE C16,64 
:RETURN 

32120 ? LINE;" ";:POKE ANTIC, 0N:60T0 6 

ETKEY 

32520 ESRADR=PEEKfC203}+PEEKtC203+Cl)« 

C256 : ERHLIME=PEEK CERRADR} +PEEK (ERRADR^ 

C13*C256 



.^J 



HAPPY USERS 
AGREE ON 



DECISIONS . . . 
. . . DECISIONS '" 

** Very interesting '' 
** A valuable program '' 
*^ Over- all rating- ^ i;V^iV JV '' 

GET THE MOST USEFUL 
DECISION -AID TOOL AVAILABLE ! 

$37.50 for 48K ATARI disk or cassette 

includes ship, to U.S. & Canada. Add $2.25 tax in Cailf. 

AT YOUR DEALER. OR DIRECTLY FROM: 



m LATERAL ^ 



1 



\\^ SOFTWARE 



Dept. 2 
RO. Box 605 
Stanton, CA 
90680 
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32525 ? CHR5C253):? CHRS tCLR) : LIST ERR 

LINErPOKE ANTIC, OH:P05rTION C2,C1:? :P 

OKE 764,255:G0T0 GETKEY 

32606 DflTfl 32115,34,32086,559,32868,53 

275,125,8,1,2,4,53774,256,16,842,263,1 

32708 DflTfl 184,165,136,133,263,165,137 
,133,264,168,1,177,263,48 

32781 DATA 31,268,177,283,133,285,166, 
4,177,263,281,55,248,13,24,165,285,181 
,263,133 

32782 DATA 263,144,228,238,264,268,224 
,165,2,133,287,56,165,1,133,287,165,13 
4,133,263 

32783 DATA 165,135,133,284,165,6,133,2 
65,165,263,157,136,288,7,165,264,157,1 
37,268,1 

32784 DATA 56,236,265,24,165,8,181,263 
, 133, 283, 144, 232,238, 264, 288, 228 
32718 PeKE C16,152:P0KE C53774,247:? : 
? :EMD 



CHECKSUM DATA 
(See page 23) 

32866 DATA 817,853,381,628,825,564,188 
,613,65,885,586,577,885,821,234,5244 
32666 DATA 485,585,547,686,813,155,265 
,153,32,582,86,542,553,267,511,7678 
32113 DATA 83,424,117,525,817,778,866, 
226,686,578,531,723,465,415,7458 



Atari owners, 
are you backed up? 

At last, an inexpensive and easy way to make back-up copies 
of your boot tape software. Even simple tape stretching from 
normal use can suddenly make a program no longer load. 
BOOT TAPE BACK-UP Is a utility program ttiat will generate a 
copy of your autoboot mactiine language programs to 
provide you with an identical copy to store away for safe 
keeping. 

Professionals make a back-up copy of everything. At minimal 
cost, you can now protect your large investment in software 
the same way. BOOT TAPE BACK-UP is simple to use and will 
pay for itself many times over. Don't put your precious 
programs at risk! 



BOOT TAPE BACK-UP Only $15.95 



(makes tape-to-tape back-ups of all single stage and most multt-stage programs) 

* • -Also available: BOOT TAPE BACK-UP PLUS" ' 
For disc owners (or future disc owners) -Same as above, but 
will ALSO transfer many of your cassette programs to disc as 
well. An even greater bargain! 



BOOT TAPE BACK-UP PLl/S Only $1 9.95 



(as above plus iranslers all ilngi* slags tape programs to autoboot disc) 

To order; 

Send CHECK or MONEY ORDER (include $1.50 shipping) to: 

"msbsoFTmRE 

P.O. Box 450 New York, NY 10024 

Requires: min. 32K - 410/1010 recorder - disc drive (optional) 

Note: Intended for personal arcfiivai use only! 

Dealer inquiries invited. Atari TM of Atari. Inc. 
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Assembly lai 


nguage list 


ing. 


0100 


» CODE IN DATA STATEnENTS 


0610 


INC POINTERrl ; check ■□nc 


ei 10 

0120 
D130 


1 AT LINES 32700-32704 
1 SEARCH THE BASIC PROQRAH 


0620 
0630 
0640 


8NE NEXT ( more. 
1 
1 WE FOUND AN ERROR 


0140 


f FOR ERRORS AND VJARIABLEB 


0630 




0130 
0160 




0660 


RETURNZ LDA #2 ITell BA3IC wa 


1 BET UP EQUATES 


0670 


3TA ERRFLB I ooofed. (POKE 
RTa 1 207,2) — exit 


0170 




0680 


0180 


VARTAB-134 I V«r valu table 


0690 


1 

I HO ERROR 


0190 


NUMVAR«Z0S (Far BASIC 


0700 


0200 


STMTAB-136 IBASIC* »t*rt 


0710 


1 


0210 


NEXLINE-Z09 (Star ago 
ERRFLa-ZeJ7 iFar BASIC 


0720 


RETURN LDA •! ITell BASIC no 


0220 


0730 


STA ERRFLQ 1 boo-boo'e. 


0230 


PQINTER-Zas ) BAB zero p»a» 
ERRDR-55 ) BOO-BQO ^ " 


0740 


! 


0240 


0730 


1 HOW MANY VARIABLES? 


0230 


1 


0760 


1 


0260 


1 POINT TO STATEMENTS 


0770 


LDA UARTAB I Set up zero 


0270 


) 


0780 


STA POINTER 1 page pointer* 


0280 


• -1644 1 ASM UHC only 


0790 


LDA VARTAB-H 1 for variable 


0270 


PLA jDan't n«ecl 


0800 


STA PQINTER+1 I search. 


ezen 


LDA STMTAB |9et up zmro 


0810 


1 


0310 


STA POINTER I page polnterH 
LDA 3TMTAB+1 I for BASIC 


0820 


1 INITILIZE 


0320 


0830 


1 


0330 


STA POINTER+l » ftearch. 


0840 


LDA «0 iPut a lero in 


0340 


) 


0830 


STA NunVAR 1 our counter 


0330 


\ LAST LINE? 


0870 


1 


0360 


1 


0880 


1 LAST VARIABLE? 


0370 


NEXT LDY «1 lEnd lOOp tf we 
LDA tPOINTER>,Y J reached the 


0890 


) 


0380 


0893 


NEXTVAR LDA POINTERl Laet one 


0390 


BMI RETURN 1 l«st line. 


0910 


CMP STMTAB 1 yet? 


0400 


I 


0920 


BNE INCREM 1 No add 1 more 


0410 


J QET NEXTLINE POINTER 


0930 


LDA POINTER-H ) How about 


0420 


1 


0940 


CMP STMTAB+1 ! now? 


0430 


QETNEXT INY iPotnt to next 


0930 


BNE INCREM I No add 1 more 


O«40 


LDA (POINTER), V I NEXTLINE byte 
STA NEXLINE 1 and keep It. 
1 


0960 


RTS »Naw you may go 


04S0 


0970 


1 


0460 


0980 


1 BET NEXTVAR POINTER 


0470 


I CHECK FOR ERROR 


0990 


1 


0480 
0490 




1000 


INCREM INC NUMVARIAdd 1 more 


LDY «4 ICQHMAND o+f«Bt 


1020 


CLC iQet aet to add 


0300 


LDA (POINTER), Y jPolnt to It 


1030 


LDA #8 iVur • of-faet 


0310 


ChP «ERROR lError? 


1040 


ADC POINTER iLet'a Update 
STA POINTER I our painter* 


0520 


BEQ RETURN2 ! Ye«-Return a 2 


1030 


0330 
0340 




1060 


BCC NEXTVAR ( and continue 


1 UPDATE POINTER 


1070 


INC POINTER-H I our aearch. 


0330 


i 


1080 


BNE NEXTVAR lUncond. branch 


0360 


CLC 1 No error ao 






0370 


LDA NEXLINE I let's got the 
ADC POINTER » neKt line'* 






0580 






0S90 


STA POINTER I addrB»K and 


• 




0600 


BCC NEXT 1 go back to 
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THE SEVEN CITIES OF GOLD 

ELECTRONIC ARTS 
2775 Campus Drive 
San Mateo, CA 94403 
(415) 571-7171 
48K $39.95 



by Arthur Leyenberger 



There is no question that Electronic Arts is the 
premier game company for the Atari computer. 
They have been in existence roughly a year and have 
already produced a dozen titles. Many of these games 
have become classics. You know the ones I am talk- 
ing about: Pinball Construction Set, Archon, 
M.U.L.E., Axis Assassin, Hard Hat Mack and 
Worms. 

M.U.L.E.., which is an economic simulation tak- 
ing place on a distant planet, was written by Dan and 
Bill Bunten of Ozark Softscape. Although difficult to 
believe, the Buntens have outdone thennselves with 
their new game: The Seven Cities of Gold. 

Seven Cities is a first-person simulation of six- 
teenth century Spanish conquistadors. After outfit- 
ting a ship and hiring a crew, you sail the oceans in 
search of new worlds. When land is sighted, you 
disembark with exploration parties in search of 
natives, treasures and the unknown. It is your deci- 
sion to either trade with the natives or conquer them 
to obtain their valuable gold — which you would like 
to bring back to the homeland. 

As the game begins, you obtain an audience at 
court, seeking gold to fund your expedition. Once 
you obtain the needed monies, you can stop at the 
pub for a refreshing brew while you contemplate 
your journey. Using the joystick you scroll out of the 
pub and pass by your home. It is here that you can 
assess your status, formulate plans and say goodbye 
to your spouse. 

Next stop is the Outfitter, where you hire a crew, 
buy food and goods and purchase ships. Finally, you 
embark on your journey, and the court wishes you 
success. 

As your voyage progresses, you must navigate by 
latitude and pay attention to the passage of time. 
Storms may be encountered, and lives may be lost 
due to sickness and storms. It is important to cross 
the ocean with the least expense of food and life. At 
any time you can view the ledger of your cargo in 
order to continually plan your journey. 

Once land is sighted and you bring the ships into 
safe mooring, you must decide on how large an 
exploration party you want and what provisions you 
want to carry. Food is all important, but carrying too 
much will slow your journey. Goods are useful for 
trading with the natives. And enough men are 
needed — you may decide to establish forts and 
missions. 



During your exploration of the local geography, 
you encounter rivers, lakes, plains and mountains. 
You can travel at various speeds, but travel and 
rough terrain will cost you additional food and may 
slow you down. Once you contact a native village, 
you have several choices. You may give them gifts, 
trade with them or conquer them. Trading is safer, 
but it is slower and requires many goods. Gift giving 
may not produce any immediate results, except show 
your good will and perhaps convince the natives to 
eventually tell you where a gold mine is. 

Conquering is the easiest, but it will cost you lives 
and leave bitter memories. Also, the natives may 
communicate your hostile intent to other villages in 
the area. It is best to look for signs to determine the 
mood of the natives before you choose an approach 
that may have significant consequences. 




The Seven Cities of Gold 

After you have traded with or conquered several 
native villages, you will want to get back to your ship 
before your provisions run out. If you have not paid 
close attention to your route up till now, you may 
have trouble finding your s> ip. It is not uncommon 
for you and your exploration party to find your- 
selves lost in the jungle... and starvation is an 
unpleasant way to die. 

If you do make it back to your ship — assuming 
they have not already sailed for home without you — 
you must transfer your supplies and booty back to 
the ship before you leave. Then you sail back across 
the ocean to your home port. Although your first 
stop may be the pub for a quick brew, you should 
visit your home to record your maps and review 
your journey. A trip to the court is in order to bear 
your treasures to the Queen. If you have done well. 
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you will bestowed with honors and maybe even a 
title. Now, if you can obtain additional funds, you 
may prepare for another journey. 

Before you begin playing the game, you must 
create a map disk. You have your choice of using a 
map of the world as it was known in the 1500s or 
creating an entirely new world. Creating a new world 
takes about ten minutes and provides you with a 
much more challenging game. Rather than just creat- 
ing random continents, the new world conforms to 
geological and cultural principles built into the pro- 
gram code. 

There are several features that add to the playabil- 
ity of the game. Your current position may be 
SAVEd to the map disk at any time. You may then 
resume the game from where you left off. A new 
game may even be started with a map disk without 
disturbing the previously SAVEd game. 

Seven Cities of Gold is an engrossing game. I 
have played it for hours at a time. Electronic Arts has 
certainly produced another high-quality game for 
the Atari co puter. Seven Cities was written by Bill 
and Dan Bunten, Jim Rushing, Alan Watson and 
Roy Glover. 

Now if you will excuse me, my crew tells me we are 
ready to set sail for the new world. Wish me luck. D 



STOP PLAYING GAMES 






■ Calculate odds on HORSE RACES wilh ANY COMPUTER 
using BASIC. 

■ SCIENTIFICALLY DERIVED SYSTEM really works. TV 
Slalion WLKY o( Louisville, Kentucky used this system 
to predict the odds ol the 1980 Kentucky Derby. See 
Popular Compiiling (February. 1984) lor a review ol this 
program. This system was written and used by 

computer experts and is now being made available to home computer owners. This method 
is based on storing data from a large number ol races on a high speed, large scale computer 
23 factors taken from the "Daily Racing Form" were then analyzed by the computer to 
see how they inlluenced race results From these 23 tacts, ten were found to be the most 
vital in determining winners. NUIVIERICAL PROBABILITIES ol each ol these 10 factors were 
then computed and this lorms the basis ol this REVOLUTIONARY NEW PROGRAM. 

■ SIMPLE TO USE: Obtain "Daily Racing Form" the day before the races and answer the 
10 questions about each horse. Run the program and your computer will print out the 
odds lor all horses in each race. COIvlPUTER POWER gives you the advantage! 

■ YOU GET 

t) Program on cassette or disk. 

2) Listing of BASIC programs for use with any computer. 

3) Instructions on how to get the needed data from trie "Daily Racing Form." 
A) Tips on using the odds generated by the program. 

5) Sample form to simplify entering data for each race. 
MAIL COUPON OR CALL TODAY 

3G COMPANY, INC. DEPT. AN (503) 357-5607 

RT. 3, BOX 28A, GASTON, OR 97119 

Yes, I want to use my computer for FUN and PROFIT. Please send me "Play the 
Horses" for $29.95. Circle the cassette you need: PET/CBM. vic-20. Color Computer. 
TI^S-80. Sinclair Timex 1000. Atari Commotlore 64 (disk or cassette) 

Apple (disk or cassette) iTST 

Enclosed is: D check or money order D MasterCard d Visa 



Card No. 
NAME 



Exp. date 



ADDRESS _ 
CITY . _ 



START USING YOUR COMPUTER FOR 

FUN and PROFITI 
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YOU CAN'T TELL 

A DISK DRIVE 

BY ITS COVER!! 




WITH A HAPPY ENHANCEMENT INSTALLED THESE ARE 
THE MOST POWERFUL DISK DRIVES FOR YOUR ATARI COMPUTER 

WARP SPEED SOFTWARE DISK READING AND WRITING 500% FASTER 

HAPPY BACKUP — Easy to use backup of even the most heavily protected disks 

HAPPY COMPACTOR — Combines 8 disks into 1 disk with a menu 

WARP SPEED DOS - Improved Atari DOS 2. OS with WARP SPEED reading & writing 

SECTOR COPIER — Whole disk read, write and verify in 105 seconds 

1050 ENHANCEMENT — Supports single, 1050 double, and true double density 

810 ENHANCEMENT — Supports single density 

SPECIAL SUGGESTED RETAIL PRICE: Get the HAPPY ENHANCEMENT 810 or 1050 version with the HAPPY BACKUP PROGRAM, 
plus the multi drive HAPPY BACKUP PROGRAM, plus the HAPPY COMPACTOR PROGRAM, plus the HAPPY DRIVE DOS, plus the 
HAPPY SECTOR COPY, all with WARP DRIVE SPEED, including our diagnostic, a $350.00 value for only $249.95, for a limited time only! 
Price includes shipping by air mail to U.S.A. and Canada. Foreign orders add $10.00 and send an international money order payable through a 
U.S.A. bank. California orders add $16.25 state sales tax. Cashiers check or money order for immediate shipment from stock. Personal checks require 
2-3 weeks to clear. Cash COD available by phone order and charges will be added. No credit card orders accepted, ENHANCEMENTS for other 
ATARI compatible drives coming soon, call for information. Specify 1050 or 810 ENHANCEMENT, all 1050s use the same ENHANCEM^JMT, 
Please specify -H model for all 810 disk drives purchased new after February 1982, call for help in 810 ENHANCEMENT model selection. Dealers 
now throughout the world, call for the number of the dealer closest to you. Al'ARlisinvaisicredhmlL'inarliof AiiiiiCompiiii.Tlnc 



HAPPY COMPUTERS, INC. 



p. O, Box 1268 



Morgan Hill, California 95037 



(408) 779-3830 
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A, 

ATARI 



DISK DRIVE 
HEADQUARTERS 

No Penalty For Using Your Credit Cards! 




COMPUTER 
PALACE 



Formerly 
Royal Software 



• DOUBLE DENSITY • PRINTER PORT 

This is one of our best selling drives. It is reliable and quiet, and offers 
true double density storage. The AT-D2 model features a built-in parallel 
printer port with a 2K print buffer. The AT-1 is identical except it lacks 
the printer port and buffer. The AT-S1 is a slave drive for either the 
AT-D2 or AT-1 (no printer port or buffer). 



IRAK AT-D2 

Our Price $398 

PLUS FREIGHT No Penally For 

Charge Cardsl 

TRAK AT-1 $349 

TRAK AT-S1 $289 
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• DOUBLE DENSITY • FREE SOFTWARE 

We recommend and sell more of these drives than any other. It offers true double 
density, and is so quiet and dependable that you forget that you are using a 
disk drive. A Beautiful Jet Black finish with flip-up smoked Plexiglas dust cover 
and LED readout make it a visual delight. Add to this, the FREE SOFTWARE 
(Word Processing, Spread-Sheet and Data-Base) and a Full One Year Warranty 
and you have a winner. Includes DOS-XL. 
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INDUS GT 

Our Price $398 



PLUS FREIGHT 



No Penally For 
Charge Cards! 



1^ NO. 1 BEST 
SELLER! 



ASTRA 1620 

Our Price $529 



PLUS FREIGHT 



No Penalty For 
Charge Cards! 



• DOUBLE DENSITY 

• DOUBLE DRIVES 





AMDEK 
MICRO DRIVE 

• DOUBLE DENSITY 

• DOUBLE SIDED 

• 3" MICRO-FLOPPY 

• PRINTER PORT 

• DRIVE CONTROLLER 



This drive packs a lot of storage into a small package which is only a 
little larger than the Atari 810 drive. It features two (2) double-density 
drives with the storage capacity of four (4) Atari 810's! It offers two 
(2) I/O ports to allow daisy-chaining of another drive or other peri- 
pherals, and the colors of the housing match the new XL series com- 
puters. All in all, this is a whole lot of disk storage for the money. In- 
cludes DOS-XL. 



Now you can add the convenience and storage capacity of the new 3" micro-disk technology 
to your Atari, Each disk-cartridge can store 108K, and several software companies are 
releasing programs in this format (LJK. Continental, Broderbund. Penguin, for example). 
Also featured Is a built-in parallel printer port and a disk drive controller which allows you 
to run any 'bVi" drive Including the double-density/double-slded RCP 100 and 200 shown 
below left. Includes DOS-XL, no Penally For No Penalty For 



AMDCI ^'^I^'^ AMDCII .... 

Single Drive 5499 Double Drive 



Charge Cards! 

$699 



ATARI 1050 

• DUAL (11/2) DENSITY 




PLUS FREIGHT 



RCP 

Add-On Drives 




• Double Density 

• Double Sided 

For use with 
AIVIDEK or ATR-8000 

RCP 100 (1 Drive) 

$379 PLUS FRT 

RCP 200 (2 Drives) 

$595 PLUS FRT 




FREE 
CATALOG 

with any order, , , or send $1 
(refundable with first purchase), V-i«* 



This is the most 

comprehensive 

Atari reference 

catalog available! 

It contains over 

3000 software & hardware 

listings with illustrations 

and descriptions! 



// you don't have our catalog . . . you're missing out! 
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RAN A 1000 

Double Density (PO/IQ 
One Year »t)04S 

Warranty (ATX Series) 



PERCOM 

Model 88-51 PD 



• DOUBLE 
DENSITY 

• PRINTER 
PORT 



PLUS 
FRT 



$479 

40-A1 Slave Drive 
S349 




R 



COMPUTER 
MLAlCE 



OPEN M-F, 9-6 Sal, 10-4 (Pacific Time) 

21 60 V*/, 1 1 Ih Avenue Eugene, Oregon 97402 




USE YOUR CREDIT CARD & CALL 

Toll Free 1-800-452-8013 

• ORDERS ONLY, PLEASE • 

There's ne ver a penalty tor using your credit card! 
For Information, Call (503) 683-5361 



SHIPPING INFORMATION: Software — UPS 

ground ($2.90), UPS Air ($4.75) per order. 
Applies to software only. Hardware, Foreign 
& APO— Extra, based on actual weight of 
item(s). Please call (503) 683-5361 or write 
for information. 
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EXPERIENCE THE THRILL OF REALISTIC 
3-D HEAD-TO-HEAD AERIAL COMBAT! 

MIG ALLEY ACE ^ 



V 




•Wte. 




/' 



Pwr ! rn Bit: 



MIG ALLEY ACE excites, stimulates, and challenges your fighter pilot in- 
stincts. It is the first simulation that allows you to challenge a friend to one 
on one combat and SHOOT HIM DOWN! Battle another human pilot, or 
computer controlled enemies. Roll inverted, execute a Split S, Loop, 
, Immelmann, or any manuever you can, but don't let the enemy get a 
I good shot at you! Outstanding action, superb 3-D graphics and deadly 
^ realism make MIG ALLEY ACE a must for all serious ATARI computer 
W users. Available in disk or cassette for $34.95 at most computer cen- 
'^^^ ters, or order direct with MasterCard/Visa, C.O.D., or check. Please 
r|A add $2.50 for postage & handling. 

'ssSk Look for MicroProse's other exciting real time simulators, NATO 
COMMANDER and SOLO FLIGHT. 



EXPERIENCE THE 

MicroProse Software 

CHALLENGE! 



■ 0616 Beaver Dam Road 
Hunt Valley, MD 21030 

(301)667-1151 

ATARI is the registered 
trademark of ATARI, Inc. 
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BASIC 

Training 



by Tom Hudson 



In this issue's BASIC Training, we'll continue 
looking at concepts that will help BASIC game pro- 
grammers. The first topic is a return to issue 18's 
vector routines, and the second is an easy way to 
speed up your BASIC games. 

Both of this issue's topics were taken from a letter I 
received from Harold L. Reed. 

Vectors revisited. 

Mr. Reed's letter begins: 

Dear Tom, 

I enjoyed your Basic Training segment in the April 
issue 0/ ANALOG. The follower routines you presented 
were very interesting, but as you said in your article, the 
routine that produces the best re-suits (Figure 6) has the 
drawback of being slow until the follower gets near the 
target. This occurs because the routine in Line 160, which 
determines the step size for X and Y, accomplishes the task 
by finding the total X and Y distances between the two 
points and dividing by 2 repeatedly, until both DELTAX 
and DELTAY are less than or equal to i. So, when the 
points are far apart, the distances have to be divided by 2 
many times in order to make them less than or equal to i. 
The closer the points come to each other, the less times the 
dividing loop has to be repeated, and the faster the results 
appear. 

This can easily be solved. Since the objective is to scale 
both DELTAX and DELTAY 50 that the larger of them 
equals i, simply determine which one is larger, divide the 
smaller by the larger, then set the larger equal to 1. This 
can be done by replacing Line 160 with the following: 

16Q IF OELTflX>BELTftV THEN DELTflYzOELTft 

Y/DELTAK:0ELTflK=i:60T0 170 

165 OELTiSH = D£LTaK/OELTaY : DELTflY^l 




This speeds up the operation considerably, since only 
one calculation is now needed. However, it also generates 
an error when the follower and target come together. This 
occurs because the program doesn't check to see if it should 
stop until it calculates its next move. So, if the points are 
right on top of each other and the routine tries to calculate 
the next position of the follower, it ends up dividing by 
zero, which generates the error. 

This can be corrected by moving Line igo to Line 225. 
The end point check, which was formerly done after the 
next set of calculations was completed, is now done after 
each move is completed. The routine is now very fast. 

Is my face redl When I originally wrote the algo- 
rithm for this follower routine, I was working with 
assembly language, which does not have true division. 
I translated the routine into BASIC too literally, and 
didn't stop to think that BASIC had a faster solution. 
In any case. Figure 1 shows the new, improved 
"FOLLOWER (VECTOR 1)" routine, courtesy of 
Harold J. Reed. 

Figure 1. 

IS REM «*« FOLLOWER tUECTOR 13 *** 

20 REM 

30 GRAPHICS 5:C0L0H 1 

40 DIM KSCiSJ ,Y5{i5J IFOR 1=1 TO 15 ! REfl 

D H,Y:K3tIJrK:Y5tIJ=Y;HEKT I 

50 DATA 0,0,0,0,0,0^0,0,1,1,1,-1,1,0,9 

,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0 

60 FK=0:FY-0 

70 TK--:80:TY=4O 

80 5TIKr6TICK(0J 

90 TK=TK+K5C5TIK) 

100 rY=TV*Y5tSTIK3 

110 PLOT TK,TY 

120 3<D = 5GHCTH-FK) 

130 YD=SGMCTY-FYJ 

140 J>ELTAK = ABS{TH-FX) 
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150 !>ELTflY=AB5CTY-FV} 

160 IF I>ELTfl}<>DELTOY THEN DELTflV=I>ELTfl 

Y/DELTAX;DELTftK=l:GOTO 170 

165 l>ELTflK=DELTflK/DELTflY : DELTAY=1 

170 HW = !>ELTflK*KD 

180 YU=l>ELTflY«YD 

200 FK=FK+KU 

210 FV-FY+Vy 

220 PLOT FX,FY 

225 IF IHT(FK)=IHTtTK3 ftND INTtFY3=IHT 

tTY) THEN 240 

230 GOTO 80 

240 ? "GOTCHfl'-lEND 



CHECKSUM DATA 
(See page 23) 

10 DATA 420,253,28,350,327,808,992,514 

,642,729,181,329,339,185,196,6293 

160 Oara 146,886, 580,589, 820, 828, 130, 7 

65,505,441,5690 



Faster execution made easy. 

Continuing with our special "Harold J. Reed" in- 
stallment of BASIC Training, here's something 
simple you can do that can increase the execution 
speed of your BASIC programs. Harold writes: 

1 once developed a rather large program and then 
developed a title screen to go with it. To avoid run-ning the 
entire program as the title screen <was being debugged, 1 
worked on it separately. I used a FOR/NEXT loop to 
slow down mji plotting routine to the desired speed. But 
then, when it was just right and I added it to my main 
program, it ran much slower! If BASIC interprets one line 
of a program at a time, why would the length of the 
program have any effect on the speed of execution? 

This is a very good question, and one which most 
programmers don't think about or even realize. But 
the fact is: code placed at the end of a BASIC pro- 
gram executes slower than code at the begin-ning! 
Let's find out why. 

When a program is sitting in the computer's 
memory, BASIC only knows where the first line is 
located. In order to find the second line, BASIC goes 
to the first line and gets the pointer to the next line. 

If BASIC needs to find the tenth line of a program, 
it must get the first line and find the pointer to the 
second line. It then looks at the second line for the 
pointer to the third line, and so on until it gets the line 
it's looking for. Imagine how much time is wasted 
looking for, say, the 400th line of a program! 

Just so I could see how much time is lost when code 
is placed at the end of a program, I put a FOR-NEXT 
loop at the beginning of the BASIC code for Retro- 
fire, which is roughly 225 lines long. When exe- 
cuted, the loop took about 24 seconds. 

1 then placed the loop at the end of the Retrof ire 
program and executed it. This time, it took 99 
seconds, over four times as long as it did at the begin- 
ning of the program! 



A program will be slowed down any time code near 
the end is referenced by line number. For example, 
the statements GOTO 1000, GOSUB 1000, RE- 
STORE 1000, etc. would all slow down the program 
if the line number referenced was at the end of the 
program. FOR/NEXT loops are also affected, since 
internally BASIC keeps track of the line containing 
the FOR statement. 

If you write games in BASIC, it's a good idea to 
place one-time initialization routines or title screens 
at the end of the program. Keep often-used 
subroutines and the main control code at the begin- 
ning of the program. Remember, simply by organiz- 
ing your code more carefully, you can increase the 
program's speed by several times! 

Write on. 

I'd like to thank Mr. Reed for sharing his insights 
with all the ANALOG readers. If you've got a ques- 
tion or observation, scribble it down on a post- 
card and send it to BASIC Training. There's no such 
thing as a "stupid" question, and you could help 
potentially thousands of other readers with the same 
problem. 

Until next time, see if you can improve the per- 
formance of your old BASIC games by reorganizing 
the code. You may be pleasantly surprised. D 



MASTER PAINTER 

FUN FOR THE ENTIRE FAMILY 

if you are a preschooler, a Phd or anywhere in between, you will enjoy 
beconning an artist using MASTER PAINTER. Display up to 22 shades 
from just 4 colors. Hi-Resolution (160x192) just Uke graphics type 15. 
Will run on any 800,400 or xl series with or without the GITA chip. Re- 
quires 48k of RfitM. 35 powerful single key stroke commands allow the 
user to easily create colorful paintings. Software is provided so that you 
can easily use your paintings in your own basic programs. 
$39.95 for disk. $34.95 for tape. 

MASTER FONT 

An efficient and easy to use character editor. Edits up to 4 characters at 
a time. Display new characters in graphics 0, 1 , 2 or their four color 
counterparts. Nine screens allows you to design animation'sequences 
and actually see what the animation looks like. The, program is com- 
pletely menu driven. Character sets may be saved to tape or disk. Soft- 
ware is provided so that the character sets can be used in your own 
basic programs 
$24.95 for disk, 19.95 for tape. 

MASTER TEK 

Master Tek — Finally, a tektronix terminal emulator for the ATARI, with 
lektronix 4010 capabilities. Also allows the uploading and downloading 
of files to and from a host computer. Includes screen dump to graphics 
printers. A disk drive and 48k of RAM are required. 
$95.95 (disk only). ^ISKCRAM 

WHY WASTE VALUABLE DISKS? . 

DISKCRAM is here at last! A powerful set of utilities capable of storing 
up to 10 single stage boot tapes, boot disks or binary files on 1 disk. 
DISKCRAM disks will run most binary files without DOS. FAST ! I The 
menu on disks created with these utilities will be on-screen in less than3 
seconds. Boot tapes may also be created, even from binary files. Re- 
quires 4Bk of RAM and basic cartridge. 
$39.95 (disk only). 

from FUTURE TECH SYSTEMS 

123 THE MEADOWS 

APOLLO, PA 15613 

Phone (412) 639-9560 

MASTER CHARGE and VISA accepted 

Pa. residents add 6% sales tax. Dealer inquires invited 

Atari and Tektronix are registered trademar(<s 
CIRCLE #140 ON READER SERVICE CARD. 
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Con 



TEXT 



16K Disk 



by Vern L. Mastel 



This program is written to run on any Atari 
computer with 48K of memory and at least one disk 
drive. Letter Perfect is the only Atari word pro- 
cessor that does not use the standard Atari file 
management system. Because of this, it is impos- 
sible to load Letter Perfect text files using another 
word processor, such as Text Wizard, or check the 
spelling using a standard spelling checker. 

ConTEXT is a program which bridges this gap. It 
will take any text file prepared with Letter Perfect 
and reformat it into a conventional file that can be 
accessed with a word processor like Text Wizard. It 
will handle files up to 160 sectors in length (this can 
be increased) and works with one or two disk drives. 

At its heart, the program is really quite simple. 
Letter Perfect uses a directory located from sectors 
363 to 371 on the disk. ConTEXT uses a direct 
sector read routine to extract the file informa- 
tion and display it in file, starting sector and 
number of sectors format. Once the particular 
file to be converted is chosen, the text is read 
from the Letter Perfect file into a string for tempo- 
rary storage. When the read process is complete, the 
string is then written back out to a new file on a 
standard Atari-formatted disk. This file can then be 
accessed by any conventional Atari word processor. 
The program offers options for using one or two disk 
drives. 



The operation of the program is as follows: 

Lines 10-80 do all of the initialization. There 
are two very short machine language subrou- 
tines used in ConTEXT. The first, INSTR$, 
calls the CIO get sector routine. The second, in 
OUTSTR$, calls the CIO record move routine. 
TRANSFERS holds the text from the Letter 
Perfect file and can be adjusted in size to 
accommodate the average size of file used. 

Lines 100-190 do the Letter Perfect direc- 
tory read. The directory information is put into 
BUFFERS. 

Lines 200-300 pull the individual file 
names, sizes and locations out of the informa- 
tion in BUFFERS. 

Lines 3 10-480 handle the user input regard- 
ing which text file is to be converted. 

Lines 490-640 do the work of reading the 
individual sectors of the Letter Perfect file and 
putting the text into TRANSFERS. 

Lines 650-710 allow one- or two-drive 
option to be used for the output file. 

Lines 720-780 call the CIO and pass the 
necessary values it needs to move TRANSFERS 
to a standard Atari disk file. 

Lines 790-830 handle prompting for a disk 
swap, if needed, upon completion of conver- 
sion and continuation or exit from the program. 
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Using ConTEXT. 

The first thing to do when using ConTEXT is to 
copy the files to be converted onto a new Letter 
Perfect formatted disk. This is to insure that all of 
the sectors are in consecutive order for each file. 
ConTEXT is not smart enough to figure out where 
the right sectors are for a given file, if they are 
scattered about on a disk (a common situation on 
discs that are heavily edited). If you have two drives, 
the LP text disk will go into drive 1 after ConTEXT 
has been loaded into the computer. RUN the 
program and select the file to be converted. When 
you enter the starting sector and number of sectors, 
be sure to enter them correctly. An error can 
produce a totally scrambled output file, because the 
wrong sectors were read. 

Letter Perfect has one very strange quirk which 
can cause a problem with conversion. An LP- 
formatted disk has sectors 8 through 55 reserved for 
some specific purpose, meaning that a 10-sector file 
will be written from sectors 3 to 7 and then from 56 
to 61. Obviously, this file will not convert properly, 
because ConTEXT reads consecutive sectors. The 
solution is to save the file twice and ignore the first 
file. The program could also be rewritten to handle 
this situation, but I decided that the extra code was 
not justified. The destination disk for the converted 
file is a standard Atari-formatted disk. It can be a 
blank disk or one already containing text or program 
files. I prefer to keep converted files on their own 
disks. Once the converted file is written out to the 
destination disk, you are done — unless you wish to 
convert more files. Load in your Text Wizard or 
Atari Writer and proceed to use the new files. 

One final note. Nearly all converted files will need 
some cleanup. Watch out for embedded control 
characters in the text and garbage at the very end. 
This garbage comes from the fact that rarely does a 
text file completely fill the last sector. Because 
ConTEXT reads complete sectors only, any "stuff" 
past the end-of-file in the last sector will be read in as 
well. It is this that produces the garbage displayed at 
the end of the text, which must be cleaned up. D 



10 DIM IM5TRSC5),DRIUESC15},BUFFERSC12 

8) ,0UTSTRSt7} 

26 DIM flSClJ,FILE5(12>,TRftHSFERSt20000 

} 

30 POKE 712,148:P0KE 752,1 

46 FOR X=l TO 5: READ fl : IHSTRS (HJ =CHRS C 

ft> :MEKT K 

56 DftTA 104,32,83,228,96 

66 FOR K=l TO 7: READ SOUTSTRS CK>=CHRS 

(A) :NEXT K 

76 DftTft 164,164,164,170,76,86,228 

80 BUFFERS= BUFFERS C128J=" ": BUFFER 

S(2)=BUFFER5 

98 P05=ADR£BUFFER5J 

160 P05HI=INT{P0S/256J 

lie P0SL0=P0S-P05HI«256 

120 POKE 772,P05L0 

130 POKE 773,P05HI 

140 FOR 5ECT0R=363 TO 371 

150 5ECT0RHI=INTC5ECT0R/256J 



LETTER PERFECT DIREeTORV 



FILE NAME 



STARTING 



160 SECT0RL0=SECT0R-5ECT0RHI»256 

170 POKE 778,SECT0RL0:P0KE 779,5ECT0RH 

I 

180 POKE 77e,82:P0KE 765,1 

198 IN=U5RCADRCIHSTR5}J 

200 '^ CHRS(1 25} iPOSITIQW 0,0:? 

";CHRSf8) ," 
CHRSflOJ, 
210 ? 

220 IMDEH-l 

230 FOR EMTRV=1 TO 8 

240 IF ASC(BUFFERSCEMTRY«16-10,EMTRY*1 

6-10)1=6 THEN 300 

250 IF BUFFERS CENTRY*16-15,ENTRV*ie-15 

1=" " THEN 300 

260 ? BUFFERStEHTRYK16-16,EHTRY»16J; 

270 POSITION 18,IHDEK+l:? ASCtBUFFERSC 

ENTRY»16-12) 1 +256*ASC (BUFFERS tENTRY«16 

-IIJJ;" "■; 

280 POSITION 33,INDEX+1:? ASC(8UFFERS( 

ENTRYK16-14J J +256*ASC (BUFFERS (ENTRYK16 

-13JJ 

290 IHDEH=INDEX+1 

300 NEXT ENTRY 

310 POSITION 2,10:? ■' PRESS RETURN 

FOR NEXT SECTOR":? "ENTER C TO CONVERT 

A DISPLAYED FILE"; 
320 INPUT AS: IF AS="C" THEN 376 
330 NEXT SECTOR 

340 ? CHRStl25) : POSITION 8,10:? " 

END OF DIRECTORY ":? " PRESS QUEE! 

n TO BEGIN AGAIN" 

350 ? " ENTER E TO EHD";:IHP 

UT AS: IF ASr"E" THEN END 

360 GOTO 80 

370 ? :? "FILE TO CONUERT====>"; :INPUT 

FILES 
380 FOR X=l TO LEN (FILES) :IF FILES(X,X 
)="." THEN FILES=FILES(1,X-1) :GOTO 460 
390 NEXT K 

400 ? "INPUT STARTING SECTOR===>"; :INP 
UT SS 

410 ? "INPUT NUMBER OF SECTORS=>"; : INP 
UT SECNUM 
420 ? :? "FILENAME IS=======i:>";FILES 

STARTING SECTOR====>";SS 

NUMBER OF SECTORS==>"; SECNUM 



430 ? 
440 ? 
450 ? 
IF AS 



: INPUT AS: 



'IS THIS CORRECT Y/N' 

•Y" THEN 480 
460 POSITION 2,12:F0R X=l TO 13:PRINT 
CHRS(156),' :HEXT X 
476 POSITION 2,12:G0T0 370 
480 POSITION 2,12:F0R X=l TO 13:? CHRS 
(156);: NEXT X 

490 POSITION 2,13:? " CONVERTING FILE 
";FILES;" PLEASE HAIT" 
500 TRANSFERS^'"' 

510 M0UESIZE=(SECNUM-1)»128:IF MOVESIZ 
E<128 THEN M0UESIZE=128 
520 TRANSFERS=" ": TRANSFERS (MOVESIZE) = 
" ": TRANSFERS (2) ^TRANSFERS 
530 POS=ADR (TRANSFERS) -128 
540 FOR SECT0R=SS+1 TO SS+SECNUM-1 
550 P0S=P0S+128 
560 P0SHI=IHT(P0S/256) 
570 P0SL0=P0S-P0SHI«256 
580 POKE 772,P0SL0:P0KE 773,P0SHI 
590 SECTORHI=INT (SECTOR/256) 
600 SECT0RL0=SECT0R-SECT0RHI»256 
610 POKE 778,SECTORL0:P0KE 779,SECT0RH 
I 

620 POKE 770,82 :P0KE 769,1 
630 IN=USR{ADR(IHSTRS)) 
640 NEXT SECTOR :EFLAG=0: FOR ADDR=POS 
P0S+127:BYTE=PEEK(ADDR) :IF BYTE=27 
HEN EFLAG=1 

644 IF EFLAG THEN BYTE=32 

645 POKE ADDR, BYTE: NEXT ADDR 

650 ? CHRS (125) : POSITION 3,10:? "SEND 
NEW FILE TO HHICH DRIVE D1-D2?":? :? " 

LdMIILCl FOR D2" 
660 ? :? " ==>";:INPUT DRIV 

670 IF DRiyES<>"Dl" THEN DRIUES="D2" 
680 DRIVES (3) -" : " : DRIVES (4) =FILES : DRIV 
ES (LEN (DRIVES) +1) =" . CON" 



T 

T 
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698 ON DRIVES tl, 23 ="»2" GOTO 728:? CHR 
SC1253 :P05ITI0M 8,10:? "PLErt5E REMOVE 
THE TEKT DISC" 

708 ? ■' AND IN5ERT AN ATARI FORMAT 
ted;;:? ■■ DESTINATION DISC IN DRIV 

718 ? ■■ PRESS \ll*iM:\ MHEN READY" 
; : INPUT A$ 

720 OPEN ttl,8,8,DRIMES:P0S=ADR{TRANSFE 

RS} 

730 5IZE=LENCTRANSFERS} : SIZEHB=INT tSIZ 

E/256J :SIZELB=S1ZE-SIZEHB*256 

740 STARTHB=INT{P0S/256} : 5TARTLB=P0S~S 

TARTHB*256 

750 POKE 852,STARTLB:P0KE 853,STARTHB 

760 POKE 856, SIZELB: POKE 857,SIZEHB 

770 POKE 850,11 

780 OUT=USR fADRCOUTSTRSJ, 163 : CLOSE til 

798 ? CHRSC125J : POSITION 10,8:? " CONU 

EHSION COMPLETE ":? :^ 

888 8N DRIVES tl, 2) ="D2" GOTO 828:^ " 

PLEASE REMOVE THE CONVERSION DISC":? " 

FROM DRIVE ttl AND REINSERT THE" 
810 ? " LETTER PERFECT TEKT DISC" 



828 



PRESS aaEEC] TO CONTINUE" 
^^ ,^ ^ ENTER E TO END";:INPUT 
AS: IF AS="E" THEN END 
830 GOTO 80 



CHECKSUM DATA 
(See page 23) 

10 DATA 397,689,174,40,802,370,682,79, 

922,229,195,583,569,431,129,6291 

168 DATA 557,546,258,182,321,341,514,6 

65,870,564,617,431,101,349,163,6479 

318 DATA 327,956,367,869,105,516,858,4 

68,789,174,328,982,483,637,951,8738 

468 DATA 284,371,355,964,394,358,839,5 

89,771,189,255,221,621,149,549,6909 

610 DATA 538,250,174,885,640,262,143,5 

77,551,681,181,51,587,343,419,6122 

740 DATA 793,332,720,8,148,965,731,1,6 

76,517,4891 
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Your "ONE STOP" Source 
for Computer Books 

You can rely on PACE for ONE STOP shopping lor 
all your Micro Computer needs. We have thousands 
ot books, programs and accessories— covering all 
the major brands of computers— even 60 different 
magazines! The ONE STOP friendly store. 



VISA/MASTERCARD ORDERS CALL (31 2) 595-3860 



BOOKS ON THE ATARI^ I BOOKS ON THE ATARI* 




D EASY GUIDE TO 400/800 
4795-000125 160Pgs $ 7.95 

D BASIC EXERCISES 
4795-000101 251 Pgs $12.95 

n YOUR FIRST PROGRAM 
4795-000130 150 Pgs $ 9.95 

n COMPUTEI's 1st BOOK of ATARI 
4105-000000 184 Pgs $12.95 

D INSIDE ATARI DOS 
4105-000002 I 08 Pgs $19.95 

D COMPUTEl's 2nd Book of ATARI 
4105-000006 250 Pgs $12.95 

D COMPUTEIs 1st BOOK of ATARI 

GRAPHICS 
4105-000008 248 Pgs $12.95 

n MAPPING THE ATARI Explanations 
ot Atari memory locations (400/800) 
4105-000009 194 Pgs $14.95 

D ATARI BASIC SOURCEBOOK ' 
4105-000015 296 Pgs $12.95 

a COMPUTEIs 1st BOOK of ATARI 

GAMES 
4105-000014 232 Pgs $12,95 

D COMPUTERS FOR KIDS - ATARI 
4198-000022 72 Pgs $ 4,95 

D THE CREATIVE ATARI How-To 
for ttie beginner or expert. 
4198-000034 243 Pgs $15,95 

D 31 NEW ATARI PROGRAMS FOR 

HOME, SCHOOLAND OFFICE 
4080-000018 95 Pgs $ 8,95 

DIOI PROGRAMMINGTIPS AND 

TRICKS FOR THE ATARI 
4080-000022 126 Pgs $ 8,95 

D STIMULATING SIMULATIONS 

forthe ATARI 
4410-005197 nSPgs $ 6,50 

D ATARI IN WONDERLAND 22- 
programs for learning and fun. 
4410-005771 139 Pgs $ 9.95 

D YOUR ATARI COMPUTER Com- 
plete how-to guide book. 
4665-000065 458 Pgs 517,95 

D ATARI GAMES S RECREATIONS 
BASIC techniques & educational games 
4690-000242 338 Pgs $14,95 

D ATARI PILOT FOR BEGINNERS 
4690-000301 229 Pgs $14,95 

a INSIDE ATARI BASIC 
4690-003082 183 Pgs $12.95 

DTHEVISICALC BOOK FOR ATARI 
4690-008393 298 Pgs $14.95 

D MOSTLY BASIC: ATARI Vol #1 
4760-022075 181 Pgs $12,95 

D MOSTLY BASIC: ATARI Vol #2 
4760-022092 $12,95 

D ATARI SOUND & GRAPHICS 
4925-009593 234 Pgs $ 9,95 



D PROGRAM WRITING WORKBOOK 
4080-000814 $ 4,95 

D 32 BASIC PROGRAMS for ATARI 
Business, educational and games. 
4250-000084 $19,95 

n HANDS ON BASIC -ATARI 
4525-049194 $19,95 

D KIDS & THE ATARI 
4560-000055 21 9 Pgs $19,95 

D 400/800 DISK GUIDE 
4665-0O0095 $ 7,95 

D INTRO TO ATARI GRAPHICS 
4665-000111 $16,95 

n THE ATARI ASSEMBLER 
4690000236 $14,95 

D ATARI: A BEGINNER'S GUIDE 
4690-000271 $12,95 

a ATARI: A USER'S GUIDE 
4690-000323 $1 5,95 

D ATARI BASIC 

4690-049791 $13,95 

D HOW TO WIN ATARI COMPUT- 
ER GAMES 
4768049558 $ 8,95 

D EASY GUIDE TO 400/800 
4795-000125 $ 7,95 

D YOUR FIRST ATARI PROGRAM 
4795-000130 $ 9.95 

n ATARI BASIC 

4925-006496 $10,95 

D ATARI BAS IC REFERENCE GUIDE 
Large card with all BASIC info needed 
4925-087041 $ 2,95 

D BASIC EXERCISES FORTHE 

ATARI 
4795-000101 251 Pgs $12,95 

D HOWTO USE ATARI COMPUTERS: 

An Introduction to 400/800/1200 
4040-000235 65 Pgs $ 2,95 

D UNDERSTANDING GRAPHICS 
4040-000224 49 Pgs S 2.95 

a BASIC CODING SHEETS -Graph 
sheets, pad of approx 40 sheets 
4080-000806 $ 2,95 



COMPUTER DUST COVERS 



For ATARI' 




4108-000800 400 


$11.98 


D 4108-000810 410 


$ 4,98 


D 41 08-000820 800 


$12.98 


D 4108-000830 810 


$ 7.98 


D 41 08-000845 820 


$ 8.98 


4108-000850 822 


$ 7,98 


4108-000860 825 


$11.98 


D 4108-000865 825w/rk 


$11.98 


4108-000877 1200 


$11.98 



Also for: APPLE*, COMMODORE' 
IBM', TEXAS INSTRUMENTS' 
RADIO SHACK' and MORE! 



NOW, . .PACE has two stores! Our main store, at 345 East Irving Park Road in 
Wood Dale, just West of O'Hare Airport, (phone 31 2-595-3860), and our new 
location at 1 FIRST NATIONAL PLAZA in Downtown Chicago, (phone 31 2-372-2464). 



USE THIS AD AS YOUR HANDY ORDER FORM 



TOORDER: Just check the block by the title of the book ontem you want Send 
along with your NAIVIE, STREET ADDRESS. CITY, STATE and ZIP CODE, and 
your Certihed Check, Money Order, Personal Check (allow 2 weeks to clear), or 
your VISA or IvIASTERCARD NUMBER, EXPIRATION DATE and INTERBANK 
NUMBER (Mm. Charge is $25) to' 



FT 



DEPARTMENT: A-C 
LOCK BOX 328, BENSENVILLE, IL60106 
micro softwan; centert Phone: (312) 595-3860 



Please add $2.50 postage and handling on ail orders. Illinois residents add 6% tax 
Foreign orders add 1 0% (Minimum £5 00). 



PLEASE SEND ME A COMPLETE BOOK & SOFTWARE LISTING FOR 

O APPLE' D ATARI' D COMMODORE' D IBM O RADIO SHACK' 

lO TEXAS INSTRUMENTS' D TIMEX'/S INCLAIR" O Other I 
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CASADAPTER 

THE ORIGINAL CASSETTE INTERFACE... 



Allows you to use your own cassette recorder or 
stereo for loading and saving of programs. It nnakes 
your own home stereo or portable cassette player act 
just lil<ean Atari 410 or 1010 recorder 
CASADAPTER gives you motor 
control, audio, and data channels. 
The CASADAPTER plugs directly 
into the computer and requires 
no other interfaces. An L.E.D. 
shows the transfer of all data. 
CASADAPTER will work with all 
of the Atari brand computers. 



39.95 




Add $2.50 shipping 

Send check or money order 

C.O.D. accepted 

New York State Residents add 7% tax 

'"'Atari is a trademark of Atari, Inc. 




COMPUTER PRODUCTS 



12 Scamridge Curve 
Williamsville, New York 14221 
(716) 632-3441 
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Boot 
Camp 




by Tom Hudson 



Welcome back! As I mentioned last issue, there 
are only a few more 6502 instructions left for us to 
cover, and we'll talk about them in the next two 
installments. There are also a couple of instructions 
we're going to skip until later. They are for more 
advanced uses, and won't make much sense until 
you've got more experience with assembly language. 

Several people have written lately, asking if we'll 
get into full-scale programs and using the Atari's 
powerful operating system. The answer: You bet! 
We're going to find out how to access the disk, 
cassette, graphics, keyboard, and just about anything 
else you'd like to hear about. We'll study routines 
for high-speed math, player/missile graphics, and 
more. If you've got a specific suggestion, drop me a 
postcard, and I'll add your idea to my topic file. Boot 
Camp is here not only to teach you what 6502 
assembly instructions do, but how to apply them. 

Two solutions. 

Last issue, I asked you to write a program which 
multiplied the number 5 by 27. There is an almost 
infinite number of ways to do this, and I'll show you 
two of them now. Remember, these aren't the only 
possibilities, and, even though your solution may 
not be as efficient, getting the correct answer is what 
counts most. 



Solution #1. 



18 
20 
30 



*= $0660 

LDfl «5 
5Tft TIMESl 



; BINARY MATH! 
;GET U TO MULT, 
;5aUE tt TIME5 1 



50 


ASL 


A 


;»2 


60 


5Ta 


TIMES2 


;SAyE tl TIMES 2 


70 


flSL 


A 


;*4 


60 


A5L 


A 


;#8 


90 


STA 


TIMES8 


;SAUE a TIMES 8 


0190 


A5L 


A 


J #16 


0110 


CLC 




; CLEAR FOR ADD 


0120 


ADC 


TIMES8 


;«24 


0130 


CLC 




; CLEAR AGAIN 


0140 


ADC 


TIME52 


;#26 


0150 


CLC 




JCLEAR AGAIN 


0160 


ADC 


TIMESl 


;#27 


0170 


STA 


RESULT 


;SAUE n TIMES 27 


0180 


BRK 




;WE'RE DONE! 


0130 


TIMESl 


#=#41 




0200 


TIME52 


#=»+! 




0210 


TIME58 


#=#+1 




0220 


RESULT 


#=#+1 




0230 


.END 





Figure 1. 

The first solution I'm going to cover is shown in 
Figure 1 . This program uses the principle of breaking 
a multiply into "bite-sized" pieces, as shown last 
issue. In this case, I broke the multiply by 27 down 
into the following group of adds: 



(nunber # 16) 

(nuMber * 8) 

cnuMber # 2) 

(nuMber ) 



fnuMber » 27J 



Let's step through the program in Figure 1 and see 
how it works. 

Line 20 — clears the decimal mode. Always 
remember to be sure of the setting of the 
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decimal flag before doing any arithmetic. 

Line 30 — loads the accumulator with the 
number 5. When the routine is finished, this 
number will be multiplied by 27 and stored in 
the memory location labeled RESULT. 

Line 40 — stores the accumulator's contents 
in the memory location labeled TIMES! (5*1). 
We need to save this value for later, when we 
add the "bite-sized" pieces together. 

Line 50 — shifts the accumulator contents 
left one bit, multiplying it by two. 

Line 60 — saves the accumulator (now 5*2) 
in the location TIMES2. This value is also 
needed for our final result. 

Line 70 — shifts the accumulator left one bit 
again, leaving the accumulator with the value 5 * 
4. 

Line 80 — performs another left shift on the 
accumulator. The accumulator now contains 5 * 
8. 

Line 90 — saves the accumulator's contents 
in the location TIMES8. 

Line 100 — performs a final left shift on the 
accumulator, leaving the accumulator with the 
value 5 * 16. At this point, we have all the 
"bite-sized" pieces we need to get our answer, 
and are ready to add them up. 

Line 110 — clears the carry flag for the first 
add in the group. Remember, this is a necessary 
instruction before any single-byte addition. 

Line 120 — adds the accumulator (5 * 16) to 
TIMES8 (5 * 8), leaving the result (5 * 24) in the 
accumulator for the next add. 

Line 130 — clears the carry for the next add. 

Line 140 — adds the accumulator (5 * 24) to 
TIMES2 (5 * 27), with the result (5 * 26) left in 
the accumulator. 

Line 150 — clears the carry again, for the 
final addition operation. 

Line 160 — adds the accumulator (5 * 26) to 
TIMES 1 (5*1), leaving the accumulator hold- 
ing the final value, 5 times 27! 

Line 170 — saves the final answer in the 
location labeled RESULT. 

Line 180 — BREAKs the execution of the 
program. At this point, you can check the loca- 
tion RESULT to be sure it contains 5 * 27, or 
135 ($87 hex). 

Lines 190-220 — reserve one byte for each 
of the four data areas used by the program. 

Solution #2. 

The second solution 1 decided to show is a modifi- 
cation of the first technique. In this program, I 
decided to break the multiply down into smaller 
pieces again, but structure it so that subtracts are 
used instead of adds: 



tnuMber « 321 

CnuMber * 4J 

CnuMfaer ) 

(nuMber # 27J 



As you can see, we get the same result as with adds, 
but with only three math operations instead of four. 
Figure 2 shows the 6502 code necessary to imple- 
ment this method. 



10 


«= 


$0680 




20 


CLD 




; BINARY MATH 


30 


LDfl 


«5 


;GET n TO MULT. 


48 


sta 


TIMESl 


;SAUE tt TIMES 1 


50 


fl5L 


A 


;»2 


60 


A5L 


A 


;»4 


70 


STA 


TIMES4 


;SAUE tt TIMES 4 


88 


A5L 


A 


;»8 


90 


ft5L 


A 


J*16 


eioo 


flSL 


A 


;»32 


8110 


SEC 




,"5ET FOR SUBTRACT 


0128 


58C 


TIMES4 


;»28 


8138 


SEC 




;SET AGAIN 


8148 


SBC 


TIMESl 


;«27 


8158 


STft 


RESULT 


;SAyE tt TIMES 27 


8160 


BRK 




;ALL DONE! 


8178 


TIMESl «=»+! 




8188 


TIMES4 *=*HH 




8198 


RESULT *=#+l 




8208 


-END 





Figure 2. 

Let's walk through this program and see what's going 
on. 

Line 20 — clears the decimal mode for 
binary arithmetic. I can't overemphasize the 
importance of knowing the status of the decimal 
mode flag. If you're in doubt, SET or CLEAR it 
as needed. 

Line 30 — loads the accumulator with the 
number 5. When this program is finished, the 
number 5 will be multiplied by 27. 

Line 40 — saves the contents of the accumu- 
lator in the location labeled TIMES 1 , for later 
use. 

Line 50 — shifts the accumulator left 1 bit, 
multiplying it by 2. 

Line 60 — shifts the accumulator left again, 
leaving the accumulator with the value 5*4. 

Line 70 — saves the contents of the accumu- 
lator (5*4) in the memory location TIMES4. 

Line 80 — shifts the accumulator left again, 
leaving the value 5 * 8 in the accumulator. 

Line 90 — performs another left shift. At 
this point the accumulator contains 5 * 16. 

Line 100 — • shifts the accumulator left a final 
time. The accumulator now contains the value 5 
* 32. We are now ready to perform the subtract 
operations as shown above. 

Line 110 — sets the carry flag for the first 
subtract operation. Remember, the carry flag 
should always be set before a single-byte sub- 
tract to insure correct results. 

Line 120 — subtracts the value TIMES4 (5 * 
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4) from the accumulator (5 * 32), leaving the 
accumulator containing the value 5 * 28. 

Line 130 — sets the carry flag for the next 
subtract. 

Line 140 — subtracts the value TIMES 1(5* 
1) from the accumulator (5 * 28), leaving the 
accumulator with the value 5 * 27! 

Line 150 — saves the answer in the location 
labeled RESULT. 

Line 160 — stops the program's execution 
with the BRK instruction. At this point, you can 
verify that the location RESULT (and the 
accumulator) contain 5 * 27, or 135 ($87 hex). 

Lines 170-190 — reserve one byte for each 
of the three data fields used by the program. 

Obviously, these are just two of the thousands of 
solutions possible for this problem. If you've got a 
different approach, I'd like to see it. Just send your 
programs to Boot Camp, in care of ANALOG. 

Stacking the deck. 

The last topic we're going to cover before going on 
to bigger and better things is the 6502 stack. This is an 
important feature of the 6502, as it allows us to write 
subroutines. Since the stack concept is very impor- 
tant, we're going to cover it in detail starting this 



issue, and finish it with assembly examples next time. 
Let's get started finding out what the stack is and how 
it works. 

The 6502 reserves 256 bytes of memory from 
$0100-01FF (also called page 1) for a temporary 
storage area. We call this area the stack. This area is 
automatically maintained for the 6502, but we can 
use it for short-term storage, too. 

We call the stack a "last-in, first-out" structure. 
The last number placed on the stack is always the first 
to be pulled off. A good way to remember this is to 
think of a stack of pancakes. When you pile them up, 
the last one put on the stack is on top. When you 
take them off one at a time, the last one you put on 
comes off first. Using this analogy, the computer 
could keep track of 256 pancakes, each with a 
number written on it. 

The computer keeps track of the stack's contents 
by using the Stack Pointer register inside the 6502. 
This pointer ranges from $00-FF. When the stack 
pointer contains $00, it is pointing to the memory 
location $0100. When it contains $FF, the location 
$01FF is indicated. 

(continued on page 80) 



Atari 
Computer 
Cartridge 
Printed 
Circuit Board 
for Prototypes 
and 
Production Runs 




■Accepts2708 thru 27128 EPROM's 
■ Even accepts 2816 EEPROM! 
•Super-tiigh quality: gold plated fingers 

and sockets 
•Configurable for a wide selection of 

PROM and EPROM 

$8.75/ Quantity 1-9 

HALCON 
COMPANY 

4286 Redwood Highway / Suite 254 
San Rafael, California 94903 
(415) 472-2685 

ATARI®is a registered trademark 
of ATARI, Inc. 




APROM 

A GENERAL PURPOSE 
EPROM PROGRAMMER 
Stored programs run at ROM 
speed. 16K bytes in two 8K 
blocks. Programs 2764 or 
27128 at 8K bytes/minute. 

Aprom or Six Pack can be 
transparent or active under 
program 
control. 

SIX PACK 

Six 8K blocks 
software 

switched for 
2764 or 

271 28 EPROM 



DATARASE 

Erases two EPROMS 

Send money order or check to: 




7755 E Evans • Suite 400 • Scottsdale, AZ 85260 • (602) 998-7550 



Aprom with disk software, 
instruction book and 

Textool ZIP socket 9950 

SIX PACK 44.95 

DATARASE 34.95 

Eproms not included 2764 10.00 

Plus $2.00 shipping & handiing 
Arizona residents add 6% tax 

CIRCLE #145 ON READER SERVICE CARD. 

Makers of Apr OITIo 

A New Data Storage System 
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Presents: 



The Most Fun You' II Have With Your Printer 



MegaFont II 

The Complete Program Lister and Graphics Dumper 
by Richard Rognlle and Randy Dellinger 

". . . dandiest program lister. . ."Creative Computing 

Dump your Graphics 7+ and 8 screens (created with MicroPainter, 
Koalapad, etc) toyourprinter in quarter, half or full page size. List ALL 
control and inverse characters in any of 1 1 fonts provided. Or use any 
character set editor to create your own fonts. New Features: Type 
directly to printer change line spacing on listed files, 2 new fonts. For 
use with NEC, Prowriter, Epson W/Graftrax or compatible printers. 
Please specify printer 
48K disk Only $24.95 



The Ultimate Atari Database IVIanager 



MegaFiier 

by Jerry Kwft (Mode Mixer 2) 

User Friendly — Powerful — Menu Driven 

MegaFiier is the most powerful system forl<eeping records your Atari 
computer has ever seen. It will allow you to store data on multiple 
disks, define formulas, modify database records, add or delete fields, 
and modify field lengths. Features Report and Label Generation. This 
database system compares with databases (costing hundreds of 
dollars) running on other computers. 
48K disk Only $29.95 



Improve Your Math Skills With 



EoMP LITER "^ '" 

a by Johnny Masuda 
^SSISTED 32K disk or tape Only $19.95 

LyjATH "• • ■ can easily compete with the high- 

priced spreads ..." 

Creative Computing 



'ROGRAM 



Create Your Own Game Screens With 



Mode Mixer 1 & 2 

by Margie Bliss and Jeriy Kwit 

48K disk Only $19.95 



Add S2.00 for shipping and hiindling. C.O.D. orders please add Sl.65 more. 
Virginia residents add 4% sales tax. Send check or money order to: 




XLENT Software 

P.O. Box 5228 

Dept. B 

Springfield, VA 22 1 50 

24 Hour Order Phone: (703) 644-888! 

Dealer Inquiries Welcome 
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P.O. BOX 3354, CHERRY HILL. N.J. 08034 

Toll FREE (800) 992-3300 

For Information Call (609) 596-1944 
Call us for reliable service, experience and affordable prices! 




Atari 600 XL 'Call 

Atari 800 XL 'Call 

850 Interface '199 

1010 Program Recorder '72 

1020 40-column Color Printer'Call 

1025 80-column Printer '325 

1027 Letter Quality Printer ... '274 
1030 Direct Connect Modem '109 

1050 Disk Drive 'Call 

Touch Tablet ',. '64 

Light Pen '74 

600 XL Memory Module '124 



Special of the Month 

Atari 850 Interface 

„ '-™''. $1QQ 

Quantities I ^ <7 



SOFTWARE 

GAMES 

Donkey Kong '34 

Eastern Front '34 

Football '34 

Joust '36 

Pole Position '36 

Pac-Man '24 

Tennis '34 

PROGRAMMING SERIES 

Assembler Editor '45 

Microsoft Basic II '61 

Atari Logo '69 

Pilot '59 



Special of the Month 
Atariwriter 



'71 




fliiii 



PI 



PRINTERS 



Okidata 


'Call 


Star 

Gemini 10X ... 
Gemini 15X ... 


'268 

'368 


Special of the Month 
Hayes Smartmodem 300 

Price Increase 209 -iJO 



SURGE PROTECTOR 
UL LISTED 




HOME MANAGEMENT 

Family Finances '39 

Homefiling Manager ^39 

Mailing List ^23 

Atari Speed Reading *59 

■A Electronic Arts 
$ CALL $ 

Archon ''Call 

Mule For 

Pinball Construction Lowest 

7 Cities of Gold Prices 

INFOCOM 

Zork 1. 2 or 3 '27 

Suspended '27 

SIERRA ON LINE 

Ultima 1 or 2 '39 

Ordering & Payment Policy 

Prices reflect a cash discount. For C.O.D., Visa, and Mastercard add 3%. For | 

immediate delivery with certified check or wired funds. N.J. resident add 6%. 

Prices subject to change. 



6 Outlet 

$62.95 

4 Outlet 

$37.95 



In-Home Key Board for 400 '65 

intec Ram Board 48K '85 

Intec Ram Board 64K '99 

DISK DRIVES 

Astra 1620 '465 

Indus GT 'Lowest Price 

Percom with Printer Port 'Call 

Rana 1000 '299 

Trak AT-D2 '385 

FLOPPY DISK 

Elephant SS/SD (10) '16.95 

Elephant SS/DD |10) '19.95 

Verbatim SS/DD (10) '21.95 

Fuji SS/DD (10) '19,95 

Maxell SS/DD (MDI) '22,95 

MONITORS 

Amdek Color 1+ '269 

BMC 13" Color '239 

Sakata Color '229 



Features iieavy duty canvas with vinyl 
interior, waterproof 

Atari 800 XL '6.99 

810 Disk Drive '6.99 

Epson Printers '7.99 

Okidata 92 '7.99 



Special of the Month 
SUBLOGIC 

Flight Simulator 

^39.95 



Shipping 

For shipping and handling add 3% {$3 
minimum). Larger shipments require 
additional charges. 



Catalog 

\Ne sell a large selection of hardware 
and software. Send $1 for catalog, 
refundable with order. 
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Interestingly, the stack works backwards from the 
way we would expect. When the stack is empty, the 
stack pointer is set to $FF. Figure 3 shows an empty 
stack. 



EMpty stack 



581FF 



i- 



5P 



FF 



$0100 



Figure 3. 

As the stack is filled with more and more values, 
the stack pointer is decremented, pointing to lower 
areas of page 1. When completely filled, the stack 
pointer will contain $00, as shown in Figure 4. 



Full Stack 



SfllFF 



42 



IB 



SP 



$0190 



01 



02 



00 



J 



Figure 4. 



Since the computer has only reserved 256 bytes 
for a stack, there are obviously limitations in its use. 
If the stack is filled with too many values, the stack 
pointer will "wrap around" back to $FF and begin 
wiping out earlier stack entries! There is no "error 
message" for this, so you must be careful when work- 
ing with the stack. 

When entries are removed from the stack, the 
process is reversed. As each byte is pulled off the 
stack, the pointer is incremented, pointing to progres- 
sively higher locations of the stack. 

How subroutines work. 

In BASIC, subroutines are easy to write. You 
simply set up the necessary BASIC code, put a 
RETURN instruction at the end of it, and call it with 
the GOSUB statement whenever you need it. The 
subroutine code is performed, and BASIC resumes 
execution at the next statement after the GOSUB. 
Neat, huh? 

In order for a BASIC subroutine to work, the 
computer has to know how to get back to the instruc- 



tion after the GOSUB. It does this by using a stack. 
Let's look at a simplified example of how a BASIC 
subroutine is executed. 

10 GOSUB 100 
20 EMD 

100 GOSUB 200 
110 RETURN 
280 ft=ft+l 
210 RETURN 

Figure 5. 

Figure 5 is a short BASIC program using the 
BASIC subroutine statements, GOSUB and RE- 
TURN. We're going to step through it and watch 
what happens to the BASIC stack, a special area 
similar to the 6502 stack. 

Before execution — The stack is empty, and the 
stack pointer is pointing to the first available 
position. 



BASIC Stack 



i^ — POINTER 



Line 10 — The GOSUB to Line 100 is executed. 
First, the computer finds the next statement after the 
GOSUB. The next statement is in Line 20, so the 
computer pushes that line number onto the first 
location on the stack, and changes the stack pointer 
to point to the next available location. Execution 
then proceeds at Line 100. At this point, the stack 
looks like: 

BASIC Stack 



20 



POINTER 



Line 100 — This line executes a GOSUB to 
Line 200. The next statement after this GOSUB 
is Line 110, so this number is placed on the 
stack, and the stack pointer is advanced to the 
next available position. Execution continues at 
Line 200. The stack now looks like: 

BASIC Stack 



20 



110 



i — POINTER 
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Line 200 — The computer adds one to the 
variable A. The stack is not affected. 

Line 210 — The computer encounters a 
RETURN statement. At this point, the compu- 
ter incrsments the stack pointer, Hke so: 

BASIC Stack 



20 



118 



i — POIHTER 



Now the computer takes the line number 1 10 
from the stack. As you can see, the computer 
can now go back to the instruction after the last 
GOSUB. Execution continues at Line 110. 

Line 110 — Another RETURN is encoun- 
tered, and the stack pointer is incremented 
again. Now the stack looks like this: 



BASIC Stack 



28 



118 



POIHTER 



The computer gets the line number from the 
stack and completes the RETURN by resuming 
execution at Line 20. 

Line 20 — This line terminates execution 
with the END statement. The stack is back to its 
original condition, with the pointer indicating 
the first stack location. The line numbers are 
still in the stack itself, but since the stack pointer 
no longer points to them, they are no longer 
active. They will be wiped out by new stack 
entries. 

Now do you see how the stack works? It's a great 
way to handle subroutines, where the computer must 
be able to find its way back to the code which called 
the subroutine. 

Until next time. 
If you think Boot Camp looks more like Basic 
Training this issue, hold on! I wanted to explain the 
subroutine process in a language you're familiar 
with, like BASIC. Next issue we'll examine the oper- 
ation of the 6502 subroutine process, and learn how 
to use the stack for our own programs. 

10 GOSUB 10 
20 END 

Figure 6. 



Until we meet again, here's a little program to get 
you thinking. Type in the BASIC program in Figure 6 
and RUN it. It may take a while, but something will 
happen, and I want you to see if you can find the 
cause. Use the stack illustration method I used in the 
BASIC example to get the answer. 

Also, if you haven't already, try to find more alter- 
nate methods for multiplying 5 by 27! □ 



Address all letters to: 



BOOT CAMP 

P.O. Box 23 
Worcester, MA 01603 



RENT Jll BUY 
ATARI 



Q. 



EXCITEMENT 



INDUS 

DISK DRIVES 

$349 



400/800/810 

Heavy Duty Dust 

Covers - $3.49 



NEW & EXCITING 

Ultima III (D) $42 

Sorcerer (D) $42 

Boulder Dash (D) $22 

Saigon, Final Days (C) . . $22 

Dunztiin (C/D) $27 

Kaiu (C/D) $27 

Drol (D) $29 

Heracles (C/D) $33 

Mr. Robot (D) $29 

MMG Data Manager. . . . $45 

MMG Mail List $35 

MMG Form Letter .... $25 

MMG Genera! Ledger. . . $26 

MMG Payroll Program . . $79 

MMG Inventory Control . $79 

MMG Accounts Payable . $79 

MMG Accounts Rec'ble . $79 

Seven Cities of Gold . . . $42 



SPECIALS 

EPYX 

King Arthurs Heir (D) . 
Crush, Crumble, Chomp 
Invasion Orion (D) . . 
Datestones of Ryn (D) 
Dragons Eye (D) . . . 
Star Warrior (D) (C) . 
Temple of Apshai (D) 
Rescue at Rigel (D) (C) 
Ricochet (C) 



. . $ 9 
(D)$15 
$ 6 
$ 6 
$11 
$15 
$16 
$10 
S 6 



COSMI 

Crypts of Plumbous (DC) $3.49 
Spider Invasions (D) (C) . $3.49 
Galactic Avenger (D) (C). $3.49 
Aztec Challenge (D) (C) . $3.49 
Many more 



Call toll-free outside Texas: 1—800—433-2938 
- Inside Texas call : 81 7-292-7396 

WEDGWOOD RENTAL 

5316Woodway Drive 
Fort Worth, Texas 76133 
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STARS 




16K Disk 



in Action! 



by Donald E. Glover 



I was looking for something to do with my shiny 
new Action! cartridge when I ran across the article 
Stars 3-D by Craig Patchett in ANALOG No. 16. 
16. To become familiar with the new language, I 
decided to translate this demonstration program 
into Action!, a job I thought would take one or two 
hours. The task eventually took much longer, due to 
a number of strange quirks associated with the 
Action! language. I hope this discussion of my 
problems will save other Action! programmers some 
hair pulling and nail chewing. 

My first task was to find a place for the display list 
(DLIST) and screen memory (STRLIN). I wanted to 
put them in a safe location, while allowing easy 
access from Action!-generated code and in-line 
machine code. I finally decided to put them in 
Action! arrays whose starting addresses were defined 
such that the display list and screen memory started 
on IK boundaries in high memory. (The Atari 
cannot easily deal with a display list which crosses a 
IK boundary or screen memory which crosses a 4K 
boundary.) 

Calculations to generate the display list required 
that the address of screen memory be divided by 256 
to obtain the high byte of the address. Performing 
this division on addresses greater than 32767, 
unfortunately, gives the wrong answer, since 
Action! multiplications and divisions always 
assume they are acting on signed numbers. Try 
typing: 

X PRINTCE(32768/256) 

in the Action! monitor and see what you get. After 



figuring out the problem, I replaced the division by 
256 with "RSH 8" (shift cardinal number right 8 
bits). The use of this technique can be seen by 
examining the procedures STRINI() and DLSINI(). 
The next problem was to insert the addresses of 
the arrays STRTPH, STRTPL, and STRPOS into the 
machine language procedure SCROLL(). My initial 
attempt to do this involved inserting the address 
during the compilation phase. Using this method, 
the first instruction in the procedure SCROLL() 
would be: 

$BO STRTPL ;LDA STRTPL, X 

To my horror, the addresses of arrays compiled 
into the code by this technique frequently (but not 
always) differed from those observed after compila- 
tion. Apparently, the addresses of arrays change 
during the compile phase, and the compiler cannot 
modify addresses inserted into machine code. The 
solution was to "POKEC" the addresses into the 
machine language routines during run time [see 
the procedure MAIN()]. 

I believe everything else in the listing is under- 
standable, because I kept the names of all routines 
and most of the comments the same as those in the 
original assembly language listing. A word of warn- 
ing: this program is designed to work with a machine 
having 48K of memory. If your machine has less 
memory, you will have to change the starting address 
of the arrays DLIST and STRLIN. The place to do 
this is clearly marked in the listing. 

Before finishing, I should mention another couple 
of Action! peculiarities. 
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Action! 
Listing 
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1. Negative FOR loops do not work. Try: 
FOR COUNTEfl-5 TO STEP -1 

in a sample test procedure. It won't work. 

2. You cannot initialize a variable to a nega- 
tive number, 

TEMP1=[-1] will not work 
However 

templ-[65535] 
will accomplish the same thing. 

3. The example on page 123 of the manual 
doesn*t work (at least with Version 3.5 of 
Action!). PRINTCE(rec. idnum) prints the 
wrong answer. For some reason, PRINTCE(rec. 
idnum* 1) gives the right answer. 

I suspect Action! will never be used to write com- 
mercial arcade-style games, because it is just not as 
efficient at * 'bit-twiddling" as machine code (try writ- 
ing the procedure scrollQ in Action!), It also does not 
produce code as compact as that produced by a good 
assembly language hacker, a definite consideration 
when trying to stuff a game in an 8K or 16K ROM 
cartridge. Nevertheless, I feel that the language (per- 
haps with the help of a few machine language routines) 
can be used to write games similar in quality to the ma- 
chine language games found in ANALOG in a much 
shorter time than usually required. Games written in 
Action! would also be easier for novices to analyze 
and understand. D 



»trl in (48»caunter)«6fl 
QD 
RETURN 

PROC dlslnlO I Initialize display list 

BYTE ■tartype.Q-ffiiet, counter 

CARD TEMP 

I do for each «can line 

dl Iflit (£>> -«70 dl Iflit (1 )'-*70 dll«t(2)-*F0 

FOR counter-^ to t*?i 

DO 

dl 1 Bt <3» (counter+1 > > -*CE i graphic* 7+ 

f now pick Btar type 

mtartype-RAND (B) 

t Bet color for each line 

Ktrcol (counter ) "mancal (atartype) 

I randomize offset Into fnemory 

of f aet'-RAND <4B> (offset into line 

f now out address of line Into display list 

dllst(3ff<count«r*-ti+l>"(strtp(2«atartypo>+offBot) 8(253 

I cannot divide number a>32767 and get correct results 

dllMt<3»(counter+l)+2><»(atrtp(2«BtartvD»>+offaet) R9H 8 

OD ^ '^ 

f now finish up display list 

dl 1 Bt (579) -»41 I jump instruction 

dl ist (580) -dl lat&253 

dl I St (581 ) -dl ist RSH 8 

sdlstl-dllst )tell antic where disnlay list is 

*dmctl-*23 ■*- 

RETURN 



Iwide Bcraen 



PROC dllO I display llet Interrupt routine 

I too little time to oven think about ualnn ACTION! 

I ^ 

«AE INDEX ( LDX INDEX 

•BD *PFFF iLDA STRCOL.X 

•BD WSYNC » STA W3YNC 

•SD COLPF0 I 3TA COLPF0 
INC INDEX 



•EE INDEX 
•40 !RTI 

RETURN 



PROC MAINO 

; fix up ml routines 

! by poking In dddresaes of various ArrAvo 

POKEC(dl t+4,Btrcul) ^ 

POKEC {BcrolI+7,Btrtpl) 

POKEC<Bcrol Hl2,Btrtph) 

POKEC (Bcrol l+17,Btrpoa> 

POKEC (Bcroll+40,BtrpOB) 

POKEC (DLI+1 .aindex) 

strinlt) iset up stars 

dlslnl(} iBet up display list 

color4"0 (set background col or 

SETVBV t7, vbl ank/256. vblankfc233> f set Up vblank 



vdslst-dll nmlen-1^2 i get dl i ' 

f now ji-tst let things run 

DO 



DD 
RETURN 



Lyco Computer Marketing & Consultants 

TOLL FREE 800-233-8760 



TO ORDER 

CALL us 



In PA 1 717-327-1824 



PRINTER PRINTER PAPER 

INTERFACING AVAILABLE 

lAvsllable for IBM PC. Apple. Atari, Vic 20 S Vic 84 



SAVE r PRINTERS 



EPSON 



OKI DATA 



LETTER QUALITY 

SMITH CORONATP2. . . $449.00 

DIABLO 630 . .$1 71 9.00 

ALPAHCOM 42 $89.00 

ALPHACOM 81 $12900 

NEC 8023 $369.00 

NEC 8025 $699.00 

NEC PC-8200 
COMPUTER $CALL 



CITOH 



RX-80 $SAVE$ 

RX-80FT ON 

FX-80 In-Stock 

FX-100 EPSON 

MXBOFT PRINTERS 

MX-100 $$CALL$$ 

MANNESMANN 
TALLY 

SPIRIT 80 $CALL 

MT 160L '....$CALL 



80 $SAVE$ 

82A CALLfOf 

83A LOWEST 

84 PRICES 

92 on thess 

93 In-Stock 

PACEMARK 2350. . . PRINTERS 

ATARI 850 

REPLACEMENTS 

IN-STOCK 



GORILLA GX100 $179.00 

PROWRITER 8510 ...$339.00 

PROWRITERII $659.00 

8600 $1025.00 

STARWRITER $1 099.00 

PRINTMASTER $1499.00 

STAR MICRONTICS 

GEMINI 10X $269.00 

GEMINI 15X $CALL 

DELTA 10 $479.00 



MODEMS 



ANCHOR MARK I 

ANCHOR MARK I 

HAYES SMART .. 

I HAYES MICRO II 

Micro Bit 

/IPP-1000 

NOVATION 
I CAT 

DC AT 

JCAT 

APPLE CAT II . 

212 APPLE CAT 



$79 00 

I- S79.00 

.S239.00 

S309.00 

$129.75 

S144.00 
$155.00 
$115.00 
$279.00 
$589.00 



MONITORS 

Sakata Color $229.00 

Anndek Color I $275 00 

Amdek 300 Green $149.00 

Amdek 300 Amber $149.00 

Gorilla Green $99.00 



PARKER BROTHERS 

Tutankham R $33.75 

Super Cobra R $33.75 

Astro Chase R $33.75 

Froggar R $33.75 

OBertR $33.75 

Popeya R $33.75 

Risk R $42.75 

Chess R $42.75 

SPINNAKER 

Story Machine R $26.75 

Face Maker R $24.75 

Kinderomp R $20.75 

Fraction Fever R $24.75 

Delta Drawing R $26. 75 



SSI 

Battle of Shilo C/D $26.75 

Tigers In the Snow C/D $26.75 

Battle (or Normandy C/D . . $26.75 
Knights ol the Desert C/D . $26.75 

Cosmic Balance C/D $26.75 

ON-LINE 

Frogger $24.95 

Wizard A Prin $26.95 

ROKLAN 

Wizard of War $29.75 

Gort $29.75 

Delux Invader $27.95 

BIG 5 
Miner 2049. 



.^,$32.75 



BRODERBUND 

Bank Street Writer O $49.75 

AE D $24.75 

Apple Panic D $23.75 

Choplltter ROM $32.75 

David's Midnight $24.75 

Stellar Shuttle C/D $18.75 

Ft. Apocalypse $24.75 

SYNAPSE 

BLUE MAX C/D $24.75 

Ft. APOCALYPSEC/D. . . $24.75 
PHAHOAH-S CURSE C/D ... $24.75 

DUST COVERS 

BOO $3.99 

400 $3.99 

1200 $3.99 

410 $3.99 

810 $3.99 

1050 $5.99 

PROWRITER $5.99 

GEMINI lOX $5.99 

PERCOM DISK $5.9S 



EPYX 
GATEWAY TO 

ASPHI R $28.75 

JUMPMAN JR R $28.75 

PITSTOPR $28.75 

GATEWAY TO 

ATARI 

(.omputers for people; 
O 

600X1 $CALL 

800XL for 

1400XL... Lowest 
1450 Prices 

1 020 PRINTER NOW 

1025 PRINTER IN 

1027 PRINTER STOCK 

1 050 DISK DRIVE .... $SAVE$ 
1010 RECORDER $74.75 



APX 3 R Math $19.95 

Typo Attack $24.95 

Family Budget $19.95 

F. Cash Flow $19.95 

EASTERN HOUSE 
Monkey Wrench 2 $52.75 



ALIEN GROUP 

Voice Box 2 . $99.75 

DON'T ASK 
Sam $41.75 

Abuse $15.95 

Teleatrl $27.95 

Poker Sam ..$24.95 



PACMAN 

DONKEY KONG 

DIG DUG 

DEFENDER. 
CENTIPEDE 



$29.75 
$29.75 
$29.75 
$29.75 
$29.75 



DEADLINE 

ENCHANTER 

INFIDEL 

PLANETFALL 

STAR CROSS 

SUSPENDED 

WITNESS 

ZORKI 



..$34.75 
.$34.75 
.$34.75 
.$34.75 
.$34.75 
.$34.75 
.$34.75 
.$34.75 
.$34.75 



mm 



BLANK DISKETTES 
ELEPHANT 

single Side SO (1 0) »1 7.75 

Single Side DD (10) $21.75 

Double Side DD (1 0) $20.75 

MAXELL 

MOIdO) $28.75 

MDII(IO) $38.79 

CERTRON CASSETTES 

CC-10 12 for $15. «g 

CC-20 1 2 for $1 7.9a 

INNOVATIVE CONCEPTS 

Disk Storage (holds 10).... $4. 95 
Disk Storage (holds 1 5) . . . . $g.as 
Disk Storage (holds 50). ... (28.95 



TRAK DISK DRIVES 

AT-D1 $379^.00 

AT-D2 $399.00 

PRINTER CABLE $22 .95 

Software for ATD-2 ....$22.95 



RAN A 
DISK DRIVE 



COMPUTER CARE 

BIB 

5V. DISK DRIVE 

CLEANER $12.75 

COMPUTER CARE 

KIT $19.75 



HARD DISK 
DRIVES for 

APPLE IBM-PC 

5MEG $1349.00 

10MEG ...$1599.00 
15MEG ...$1999.00 
20MEG ...$2359.00 

■Add i 111 iio '"' 'RS Mil 111 v.-s 

TEXAS 
INSTRUMENT 

Disk Drive... $245. 00 




FOR ATARI 
COMPUTERS 



AT88S1 .. 
AT88S2 .. 
AT**S1PD. 
RFD40S1 . 
RFD40S2. 
RFD44S1 . 



.$329.00 
.$535.00 
..$439.00 
.$399.00 
.$675.00 
.$449.0O 



AT88 doubler 



00 TO ORDER 

CALL TOLL FREE or send order to 

800-233-8760 ^TbTZT 

ICustomer Service 1-717-327-1825 Jersey Shore PA 1774C 



POLICY 

In-stock items shipped within 24 hours of order. Personal 
checks require four weeks clearance before shipping. No 
deposit on C.O.D. orders. Freeshipping on prepaid cash orders 
within the continental U.S. PA residents add sales tax. All 
products subject to availability and price change. Advertised 
prices show 4"^ dtscouni offered for cash, add 4% for Master 
Card or Visa, DEALER INQUIRIES INVITED. 
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DO YOU SUBSCRIBE TO ANALOG 
COMPUTING ON DISK OR CASSETTE? 



. . .if not, then you 
should. Since issue 
1, ANALOG'S 

cassette and disk sub- 
scriptions have 
eliminated the 
need for you to 
spend hours typing 
in programs from the 
magazine. All of the 
programs in the 
magazine are on the 
cassette and disk 
versions. 



1 year (12 issues) on 
cassette, $90.00, 
disk, $130.00:72 
year (6 issues) 
cassette, $48.00, 
disk, $72.00. 




ANALOG COMPUTING 
Issue #16 




a. 



TV 



To subscribe on cassette or disk, 
send check or money order to: 

CASSETTE SUBSCRIPTION 

or 

DISK SUBSCRIPTION 

P.O. BOX 615 
HOLMES, PA 19043 

For Fastest Service, 

Call Our Toll-Free 

US Order Line 

800-345-81 1 2 

In Pennsylvania call 800-662-2444 
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24K Cassette or Disk 



by David Plotkin 



Bounce, written by Joel Gluck and published in 
ANALOG issue 15, was a lot of fun to play with, 
just as Joel predicted it would be. The obvious 
enhancements that sprang to mind included a higher 
resolution screen and multiple colors. Unfortu- 
nately, higher resolution (and more than four 
colors) means more points to draw, and BASIC 
siows to a crawl. Fortunately, Action! from OSS 
presents an alternative, so I translated and modified 
the program into Action! Try punching it in; I think 
you'll agree that the color patterns and dynamic 
"ball" are fascinating to watch. To use this updated 
version of Bounce, you must have the Action! car- 
tridge installed in your Atari. The program works 
pretty much like the original: You draw "walls" with 
your joystick, then hit the space bar to start the ball 
bouncing. Hitting the space bar again stops the 
bounce, so you can draw more walls with your joy- 
stick, or erase by pushing the fire button. If you press 



the ESCAPE key while the bouncing is stopped, you 
will return to the menu screen to review the com- 
mands. The program uses Graphics II, so there are 
fifteen colors on the screen, and the color of the line 
drawn changes each time the cursor bounces. The 
left arrow key (CONTROL *) changes the speed of 
the bouncing cursor; at the highest speed it's really 
moving. It can go even faster if you delete the DO 
OD loops following the sound statements. You will 
lose the sounds of the bounce if you do, however. So 
have fun with this juiced-up version of Bounce. D 



Action! Listing. 



HODULE 



; BOUNCE fron ANALOG Magazine 
; Issue ttl5 



m GTIA Mode 11 



BYTE key=764,x,yjConsole=53279, 
attract=?7 
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CftRD ctr 
INT A.B 



PROC wallchexC) 

IF X>78 THEN x=78 FI 
IF y>19e THEN y=19e FI 
IF X<1 THEM X=l FI 
IF y<l THEM y=l FI 
RETURN 

PROC HenuC) 



PrintE ("BOUNCE froH analog Iss ue ttl5"3 

PrintEC" HM***;li'.T»gf--»t« "l 

PrintFf'XE* Use stick to draw «alls,XE"} 

PrintFt"* Hold trigger to erase, KE") 

PrintFt"* Hit E5C to Clear screen, XE"J 

PrintEC"* Hit SP ACE to bounce."! 

PrintE C"» ESZESS control ball speed") 

Print ("Press any key to continue."! 

key=255 

While key=255 Do Od 

Key=255 

RETURN 



PROC drawscreenO 

BYTE curs=752 

GraphicsteJ 

cur5=l 

MenuC} 

GraphicsdlJ 

curs=l 

SetCo 1 or (4 , e , 4 J ; SetCo lor (4,8,8) 

color=15 

Plot(8,8) 

Dra«To(75,e) 

DrawTo(79,19i) 

Dra«To(8,191) 

DrawTo(e,8) 

RETURN 



PROC flashO 

color=9 

Plot(x,y) 

FOR Ctr=8 to 388 DO 00 

color=8 

Plot(x,y) 

FOR Ctr=e to 388 DO OD 

RETURN 



PROC bounce () 

BYTE fate=53778,L=te3,Pfl,PB,G, 
kolor=tll,ti«e=I32] 

color=:9 

B=l 

Plot(x,y) 
DO 

IF key=33 THEN key=255 RETURN FI 
MHILE Locate(x+A,y+B)<15 Do 
color=kolor 
Plot(x,y) 

wallchexO 

color39 

Plot(x,y) 

L==+i 

FOR ctr=8 to 5«tiMe DO OD 
00 
IF key=7 THEN 

key=255 

tiMe==-32 
FI 

Sound (8 , L*4 +28 ,18,8) 
Pft=Locate(x+ft,y) 
PB=Locate(x,y+B) 
FOR Ctr=8 to 188 00 OD 
SndRstO 
L=8 



IF Pfl> 
6= 
B= 

ELSEIF 
tt= 
CO 

PI 

y= 

CO 

PI 

ELSEIF 

B= 

CO 

PI 

X- 

co 
PI 

ELSEIF 
B= 

ELSE 

ft:: 

FI 

kolor= 

IF kol 
ko 

FI 

attrac 
OD 
RETURN 



2 AND PB>2 THEN 

A 

6 

PA>2 AND PB<3 THEN 
-A 

lor=2 
ot(x,y) 
y+B 
lor=9 
ot (x,y) 

PB>2 AND PA<3 THEN 
-B 

lorr2 
ot(x,y) 
X+A 
lor=9 
ot(x,y) 

fate>127 THEN 

B 

-A 

=+1 

or>14 THEN 

lor=l 

t = 8 



PROC drawo 

BYTE qq 

drawscreenO 
X=48 

y=95 

DO 

IF keyr28 THEN 

key=255 

drawscreenO 
ELSEIF key=33 THEN 

key=255 

bounce () 
FI 
IF Stick (8)=15 THEN 

flashC) 
ELSEIF StiCkCS)::? THEN 

X=X+1 
ELSEIF Stick{8)=6 THEN 

X=X+1 

y=y-i 

ELSEIF Stick{8)rl4 THEN 

y=y-l 

ELSEIF StiCk(8)=5 THEN 

X=X+1 

yry+l 
ELSEIF StiCk(8)=ll THEN 

X— x~l 
ELSEIF 5tiCkC8)=18 THEN 

x=x-l 
y=y-i 

ELSEIF StiCk(8)=13 THEN 

yry + l 
ELSEIF Stick(8)=9 THEN 

x::x-l 

yry+l 
FI 

vallchexO 
IF Strig(8)=8 THEN 

COlor=8 

flashC) 
ELSE 

COlor::15 
FI 

Plot(x,y) 
IF StiCk(8)<>15 THEN 

qq=:Strig(8) 

Sound (8, (288-X-y)*qq,8+2«qq,4) 

FOR Ctr=8 to 1888 DO OD 

SndRstO 
FI 
OD 
RETURN 
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(continued from page 24) 

Line 4550 — Compute ASCII code of dis- 
tance clue, and (4560) jump ahead (to 4700) to 
display that clue. 

Line 4600 — Find horizontal and vertical direc- 
tions of treasure from Seeker. 

Line 4610 — Compute the proper index 
num-ber for the ARROW( ) array. 

Line 4620 — Make clue that arrow. 

Line 4700 — Show the clue on the screen. 

Line 4710 — Return to game loop. 

That's the whole clue-making process. The compu- 
tation of distance or of the proper arrow index may 
seem complex, but after puzzling them out, they be- 
gin to make sense. 

Endings. 

When the game ends, it branches to Line 5000 for the 
"End" routine. The elapsed time is computed using two 
of the time locations, and then is printed out, along 
with the number of guesses the player took. 

If elapsed time was less than fifteen seconds, a 
little congratulatory sequence occurs on Line 5130. 
Lines 5140 to 5200 handle the option of playing 
again. The PLAYAGAIN variable is set to "one" if 
the START key is hit; if anything else is hit, it is set to 
"zero." 

Only the beginning. 

Why am I rehashing old game ideas (you may ask 
yourself)? Well, it so happens that this particular 
game idea is ideal to program simply and to expand upon 
creatively. With it, we can start small and think big. 

For example, CLUES. A is only a one-player game. 
What happens when you make it two-player? I had a few 
ideas along those lines the other day, and I wrote 
them down in the following cryptic form: 

Permutations of "Clues" 
(two-player) 

1 . One treasure, misinformation beyond a cer- 
tain range (say, five grid points). 

2. Two treasures, mixed information. Or three 
treasures ( 1 or 2 treasures could be false)! 

3. Separate treasures for each player: a. 1 
/player/, misinfo; or b. 2/player, mixed info. 
Players' clues are distinguishable by color or 
RVS field. 

4. Clue characteristic: a. Transient — clue dis- 
appears when you move away; or b. Permanent — 
clue remains visible (like in CLUES.A). 

5. Special features: a. Hidden Bomb, if set off, 
moves treasure to a new spot; or b. Mobile trea- 
sures — treasures move after each guess (clues 
should be transient). 

6. Weird/idea: Players take turns at screen. 
On each turn, a player sees only his treasure 



(which he must keep hidden) and himself. He 
may either: a. Take a guess as to where the 
opponent's treasure is; or b. Move his own 
treasure. 

These notes may seem a bit mangled, but there are 
some interesting ideas in there. Of course, we don't 
have to develop all these possibilities at once. We can 
write various prototypes to try out different ideas. 
As a matter of fact, that's the subject of the next Our 
Game. Keep your booties on and stay tuned! 

I want mail. 

I want mail so badly I can taste it (no, that's just an 
expression; I don't eat the letters you send me). More 
importantly, I want YOU to vote in Our Game Special 
Election-Year Game Idea Vote! Remember, if you 
don't vote soon, Victor the Frightening Vote- 
Counting Robot will get angry — and you wouldn't 
want that to happen, would you? For details, 
take a look at last month's ANALOG (issue 19). 

Of course, if there's anything you want to flame 
about, or any game idea you think is up to scratch, 
send it along, too. I promise you I'll read your letter. 

Send your letters (and your favorite recipe for onion 
dip) to: 

Our Game 

c/o ANALOG Computing 
P.O. Box 23 
Worcester, MA 01603 

Next month: more CLUES! D 



180 REM - CLUE5 Prototype A 

lie REM - by Joel Gluck / April '84 

128 REM - "Our GaHe" 

138 REM - ANALOG CoHputing June '84 

288 GOSUB 1888:REM - Intro/Options 

218 GOSUB 2088: REM 

228 GOSUB 3068: REM 

238 GOSUB 4088: REM 

248 GOSUB 5888: REM 

258 IF PLAYAGAIN=1 THEM 228 

268 END 

1888 REM 

1188 GRAPHICS 8 

1118 ? "HelcoMc to {4V14^ Cversion AJ!" 
1112 ? :? " 'A Minute to learn,":? 

" two Minutes to Maste r. '" 

1128 ? :? "Object: Find the iTTrmm HE 

feJdlljfcJ":? "as fast as you can." 

1130 ? :? "Directions: Use joystick »1 

to Moye":? "your Seeker Cthe •) to a 
point on the" 

1148 ? "grid where you think the treas 
ure":? "Might be and then press the jo 
ystick" 
1158 ? "trigger. I f yo u are correct, y 

*'H,}"'"A,^ "°^' 3 SSni Will appear.":? 
"The tHlH=| will be either an arrow or" 
1168 ? "a nuMber. An arrow points in t 
he":? "general direction of the treasu 
re." 

1178 ? "A nuMber tells your approxinat 
e":? "distance froM the treasure," 
1188 ? :? "Good l uck a nd have fun!" 
1150 ? :? "Press ^lR to begin..."; 
1288 IF PEEK<;53279J<>6 THEN 1288 



Initialize 
Init, Screen 
Gane 
End 



Intro/Options 
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:REH 



iREM - joystick 
- possible 



1210 5ETC0L0R 4,12,e:REM - acknowledge 

key press by changing border color 
1220 RETURN 

2000 REM - SiEESIEQS 

2108 DIM XSC151,Y5<15J 

direction storage 

2200 FOR Z=5 TO 15: 

joystick values 

2210 READ A,B:REM - READ direction 

values into duMHy variables 

2220 «SCZJ=fl:Y5CZJ=B:REM - Store 

direction values 

2230 NEXT Z 

2240 REM - direction values: 

2250 DATA 1,1,1,-1,1,0,0,0,-1,1,-1,-1, 

-1,0,0,0,8,1,0,-1,0,0 

2300 REM - ARROM graphics values: 

2310 DIM CH$(l),ARR0Uf8] :REM - arrow g 

raphic storage 

2320 FOR Z=0 TO 8 : REM - possible arrow 

values 
2330 READ CHS : ARROWfZJ =A5C CCHS CI , IJ J +1 
28:REM - read arrow char, and convert 
to nuHerical code +128 for reverse 
2348 NEXT Z 

REM - arrow characters: 

DATA r,<,«-,'^,?,V,i,>,J 

REM - other graphics: 

HALL = ASCt"I'"3 

GRID=A5CC".") 

SEEKER— ASC ("•"} 

HUMBER = ASCC'e"}+128:REM - base 

is zero, +128 for reverse 



2350 

2360 

2480 

2410 

2420 

2430 

2440 

nuMber 

field 

2580 RETURN 

3000 REM - 

3108 GRAPHICS 

3118 SETCOLOR 







- background 
3120 POKE 752, 



2,8,0:5ETC0L0R 4.7,4:REM 
and border color 
liREM - Make cursor 

invisible 

3288 COLOR HALL 

3210 PLOT 0,0:DRAHTO 39,0:DRAWT0 39,23 

:DRAMT0 8,23:DRAWT0 8,8:REM - draw 

outside wall 

3258 COLOR GRID 

3268 FOR K=l TO 38 ; REM - grid breaks 

down into 38 colunns 

3278 PLOT X,l:DRAWTO K, 22: REM - draw 

one coluHn of grid pattern at X 

3280 NEXT X 

3300 XSK=19:V5K=ll:REM - starting 

coordinates of the Seeker 

3310 COLOR SEEKER:PLOT XSK,YSK:REM - 

3328 UHDER=GRID:REM - "underneath" the 

Seeker is blank grid space 
3400 XTRS=INT{RND{1>»38J+1:REM - X- 
coordinate of the treasure 
3418 YTRS=IHTCRNDCl}»22)+l:REM - y- 
coordinate of the treasure 
3420 IF XTRS^XSK AND YTRS^YSK THEN 340 
e:REM - prevent treasure froM being 
right under Seeker's feet at start! 

3500 RETURN 

4000 REM - [fgm 

4100 POKE 20,0:P0KE 19,0:REM - set 

tiHer to zero 

4110 GUESSES=e 

4120 FOR V::15 TO 8 STEP -8. 5: SOUND 0,1 

oe,10,U:HEXT U:REM - Starting bell 

4200 REM - gane shell 

4210 S = STICKtOJ :T3STRIGC0) :REM - get 

stick and trigger values 

4220 IF T=0 AND S=15 THEN G05UB 4500 :G 

OTO 4218:REM - take a guess Ctrigger 

was hit} 

4238 IF SOIS THEN GOSUB 4300:6010 421 

0:REM - Hove Seeker 

4248 GOTO 4210:REM - nothing 

REM - Move Seeker 

POKE 77,0:REM - prevent ATTRACT 



happened 



4300 
4305 
MODE 
4310 XD-XSfSJ :YD=YSCSJ :REM - direction 

based on joystick value 
4328 LOCATE XSK+XD, YSK+YD, G : REM - find 

out what's ahead of the Seeker 



4330 IF G=HALL THEN RETURN :REM - can 

not Move through a wall! 

4348 SOUND 0, XSK+YSK, 8, 4 

4350 COLOR UNDER:PLOT XSK,VSK:REM - 

erase Seeker 

4360 XSK=XSK+XD:YSK=YSK+YD:REM - Move 

Seeker 

4370 COLOR 5EEKER:PL0T XSK,YSK:REM - 

draw Seeker 

4380 UNDER=G:REM - new "underneath" 

value 

4390 SOUND 0,0,8,8 

4400 RETURN 

4508 REM - take a guess 

4502 GUESSES=GUESSES+1 

4505 IF XSK=XTRS AND YSK=YTRS THEN POP 

:RETURN :REM - Win! 
4510 FOR V-9 TO STEP -0.5:S0UND 0,10 
,4,U:SETC0L0R 2,0,U:NEXT U:REM - 

special effects 
4520 IF UNDEROGRID THEN 4700:REM - 
show the saMe old clue that's in that 
spot 

4530 DIST^IHT CSQR t (XTRS-XSK) ^2+ (YTRS-Y 
SKJA2J+0.5J 

4540 IF DIST>9 OR RND ClXO . 3 THEN 4600 
:REM - if too far, use an arrow clue 
4550 UNDER=DIST+NUMBER:REM - nUHber 
clue 

4568 GOTO 4700 

4600 XD=SGHCXTRS-X5K) : VD=SGN tVTRS-YSKJ 
:REM - direction toward treasure froM 

Seeker 
4618 Zr3*<XD+l}+CYD+lJ :REM - coMPUte 
proper arrow nuMber 

4628 UNDER=ARROM(Z) :REM - use that 
arrow 

4700 SOUND 0,20,ie,8:C0L0R UNDER:PLOT 
XSK,YSK:SOUND 0,e,0,e:REM - show clue 
4710 RETURN 
5000 REM - [HE 

5108 TIMEr f PEEK C20} +256«PEEK (19> ) /68 ; R 
EM - find jiffies and divide by 60 to 
get seconds. 
5110 GRAPHICS 

5128 ? :? "YOU did it in ";TIME;" seco 
nds" 

5125 ? "tand in "jGUESSES;" guessesJ ," 
5130 IF TIME<15 THEN ? iFOR F=100 TO 1 
STEP -lOiSOUND e,F,10,4:? "CongratuI 
ations!":NEXT F ; SOUN D 0,0,0,0 
5140 ? :? "Hit aEED to play again," 
5150 ? "anything else to stop,,."; 
5160 POKE 764, 255: REM - Clear keyboard 

value 
5170 IF PEEK<7C4J<>255 OR PEEKC53279J< 
6 THEN PLAYAGAIH=0:? :POKE 764,255:RET 
URN :REM - they've had enough 
5180 IF PEEK(53279J=6 THEN PLAYAGAIN=1 
: RETURN :REM - More! 
5200 GOTO 5170 



CHECKSUM DATA 
(See page 23) 



100 DATA 244,235,824,330,529,922,868,5 
98,273,700,46,202,45,918,124,6858 
1120 DATA 408,447,457,107,985,441,461, 
135,606,407,787,905,98,178,471,6893 
2228 DATA 389,546,19,880,336,288,588,9 
70,550,838,925,160,479,253,441,7486 
2440 DATA 19,796,550,49,388,142,115,32 
2,121,446,769,547,23,344,778,5409 
3400 DATA 838,822,418,798,56,979,988,7 
33 , 345 , 583 , 196 , 745 , 955 , 683 , 896 , 9947 
4318 DATA 344,925,529,199,196,763,352, 
875,222,797,679,377,345,267,67,6937 
4530 DATA 790,670,331,739,441,962,556, 
276,807,671,167,54,396,528,893,8281 
5140 DATA 3,720,944,867,845,737,4116 
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MOVIEMAKER 

by Interactive Picture Systems 

RESTON SOFTWARE 

11480 Sunset Hills Road 

Reston, VA 22090 

(800)336-0338 

48K Disk $49.95 



by Bob Curtin 



Here's another good one, folks. MovieMaker is a 
program or, more correctly, a series of programs 
which allow the user to create animated "movies" 
about thirty to sixty seconds long, with a very pro- 
fessional appearance. The animated computer graphics 
which can be created with this package are as good as 
any the "big boys" make, and you're limited only by 
time and your imagination. 

MovieMaker is broken up into four sub-programs 
entitled compose, record, smooth, and play. The 
compose mode allows you to draw characters (the 
actors) as a series of shapes which, when combined 
into sequences, give the illusion of movement. Each 
shape is the equivalent of a single drawing in regular 
animation, and up to sixteen shapes can be combined 
to create an action sequence. This would be the 
equivalent of flipping sixteen pages or "frames" in 
normal animation. Many action sequences can be 
strung together and/or played simultaneously, to 
create a full-length feature up to 300 frames long. 

Drawing shapes in this mode is much the same as 
in Datasoft's MicroPainter or Atari's Paint pro- 
gram — that is, with the joystick and keyboard. 
However, several clever little features take a lot of the 
work out of drawing scores of tiny, repetitious 
shapes. The program allows you to duplicate and 
move shapes around. These shapes can then be 
altered and duplicated, and altered and duplicated 
again, and so on [you get the picture? (pun intended)]. 
A mirror-image feature is provided, so you only have 
to draw half of symmetrical shapes; the computer 
will draw in the other half automatically. As in the 
other graphics generation programs, there's a zoom 
feature that makes attending to details in your draw- 
ings a lot easier. The zoom feature can also be used 
when recording your movie, to give the effect of a 
shape coming closer or vice versa. 

Most of the work is done in the compose mode, 
creating the action sequences and the backgrounds. 
Multiple shape files can be stored on disk for use 
later, when you start the actual "filming" of your 
movie in the record mode. These shape files can also 
be used to build backgrounds, and accumulated for 
use in sequences in future animations. 

Once the shapes, sequences, and backgrounds are 
completed, these elements can be combined in the 
record mode, to create the finished film. There are a 
variety of controls in this mode, which allow you to 



record up to six "actors" on the screen at the same 
time. This is accomplished by re-recording addi- 
tional sequences over an existing film. You can start 
and stop anywhere in the film, adding actors, chang- 
ing colors, zooming, changing the recording speed 
(similar to filming in fast or slow motion), adding 
sound and fine tuning the whole creation by using 
the many editing commands. 

Once the recording is done and the animation 
saved to disk, the next step is the easiest. Enter the 
smooth mode and give the computer some room. 
Your Atari will go over the film and take out all of the 
silent-film jumpiness — giving you back a work of 
art. 

MovieMaker is a complex package, and with 
complexity comes a learning curve. There's a lot to 
remember. There's a myriad of controls, procedures 
and commands, and it takes a while to learn them all. 
Once learned, however, the complexity will be 
appreciated for the control that it gives you over the 
animated graphics you can create with this program. 

The documentation provided with MovieMaker 
is in the form of a hundred-odd page booklet with 
step-by-step instructions, tips for advanced users, a 
trouble-shooting section, glossary, detailed summary 
of commands and (lo and behold) an accurate and 
detailed table of contents. The booklet is well writ- 
ten, clean, and (although it leaves nothing to chance) 
you don't get the impression that it was written for 
the crayon and bubblegum set. There are also several 
sample movie files provided, as an example of what 
this package is capable of when in the right hands. 

Unfortunately, there's no way to play back these 
films, except with the MovieMaker program. Res- 
ton did not see fit to provide a subroutine or repro- 
ducible program which you could use to play back 
the animations you create. That's a gripe I had with 
both the Atari Paint program and Datasoft's 
MicroPainter program. It'd be a simple matter to 
list such a subroutine in the documentation, or 
provide one on the disk, that could be reproduced 
and used in your own programs. I grant that it would 
be more difficult with MovieMaker, but certainly 
within the realm of the possible. With software run- 
ning nearly 20% of the cost of the computer it's used 
on, I think the software houses ought to pay at least 
as much attention to their customers as they do the 
software pirates. But that's another story. 

It is a good buy. As I've said in the past, these 
wondrous devices are capable of so much more than 
creating hordes of killer tomatoes. It's both refresh- 
ing and gratifying to see programs as good as this on 
the market. When my kids put aside their game disks 
and booted up MovieMaker, I was interested to see 
their reaction. Well, several weeks later they're still 
at it — struggling at times, but sticking to it and 
obviously enjoying themselves. I think Reston has a 
winner. D 
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SLIP INTO 

SOMETHING 

TURBO-CHARGED 

'■' like the road-scorching 

speedster in RALLY SPEEDWAY 
— the game that turns your 
ATARI into a full-blown, tour- 
wheeled demon! Take on our 
demanding course, or use the 
unique Construct-A-Track option to 
design your own. Push yourself to the 
limit for a better lap time, or get a 
friend in on the action for a one-on-one 
duel to the finish line — it'Si.your choice! 
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fe MAKE TRACKS TO 
■ YOUR DEALER TODAY! 

v" ATARI 400/800/1200 CARTRIDGE 

1^ 053-0171 $49.95 

l?^' If your dealer doesn't have Rally Speedway in 

W; stock, phone 1-800-327-7172 with your order, or 

3^'s write us at Adventure International, P.O. Box 3435. 

,.§^ Longwood, FL 32750 for your FREE catalog. 

DEALER ORDERS WELCOME 
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Scredit 




32K Disk 



by Ron Hodge 



Smooth scrolling is the most dramatic graphics 
capability of the Atari system. If you've been follow- 
ing Kyle Peacock's recent series, Fine Scrolling 
(issues 13-16), you've no doubt sat entranced while 
the screen moved about smoothly under joystick 
control. 

After deciding to set up your own scrolling game 
or utility, you whip out Create-A-Font (issue 16) 
and create the character set that will make your 
screen sparkle. Then, it suddenly dawns on you — 
how do you design a scrolling screen when you 
can't even see all of it? 

I was faced with the same problem, and the result 
was Scredit (short for Scrolling Screen Editor). 
Scredit is a screen editor that allows you to design a 
screen simply by typing in the characters to the 
screen, then SAVEing the screen as a binary file. 

My particular need was for a screen in Graphics 
Mode 2 , 24 TV screens wide. While your screen may 
not be the same size or mode, I think you'll find it 
easy to modify the program for your own needs. 
Let's take a look at how Scredit works. 

Scredit starts with a menu of options you'll need 
to get started. After taking a look at the disk 
directory with option 4, press 1 or 3 to LOAD in a 
screen or character set. The menu will remind you 
whether you're LOADing or SAVEing a file, and ask 
for the filename. Prefix the filename with D:. Scredit 
will confirm that the LOAD is complete, or report 
any disk I/O errors, using standard error numbers. 



If you change your mind about LOADing or 
SAVEing a file, simply press RETURN when asked 
for the filename. You'll get an error message and a 
request for your next option. (You may LOAD or 
SAVE a file from any drive, but only look at the 
directory on the drive 1.) 

After LOADing your files, press 5 to exit to the 
editor. Your cursor will be in the upper left corner of 
the screen. To move it around, use the CONTROL- 
ARROW keys or press the trigger while moving the 
joystick. If you want to place a character on screen, 
press the appropriate key, or the space bar to erase a 
character. All CONTROL-KEY combinations other 
than the cursor arrows are ignored by Scredit. 

Press OPTION to change the image priority of the 
cursor. You have two methods to see which charac- 
ter is under the cursor. Pressing START will tog- 
gle the screen between the character set chosen and 
the internal character set. Pressing SELECT will dis- 
play the character in the text window, along with its 
hex value. 

The hex value will show you how the character 
derived its color. If the high bit is set, it shows an 
inverse character. If the next-highest bit is set, the 
character is in lower caps. For example: 

C=$23 upper case 

C=$63 small caps (+$40) 

C=$A3 inverse (+$80) 

C=$E3 inv + small caps (+$40+$80) 
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Move the joystick to scroll the screen. The cur- 
sor will move if the trigger is pressed. You can get 
back to the menu by pressing ESCAPE. Flipping to 
the menu and back is also convenient for positioning 
the cursor at the beginning of the screen, since you 
always enter the editor at the beginning of the screen. 

That's all there is to using Scredit. It shouldn't be 
hard to modify Scredit for other screen sizes or 
modes. Screen and player/missile parameters, in 
addition to the display list, are all the changes 
needed. The logic flow remains the same. Since hori- 
zontal and vertical scrolling are so similar, the 
routines to maintain cursor position for vertical or 
horizontal scrolling are similar to the current 
routines. 

One last thought. Since the logic for Scredit is so 
minimal — about 2300 bytes — it could be co- 
resident with a program under development. Then 
you could flip between the program you're fine- 
tuning and Scredit to make screen changes as 
needed. D 

BASIC Listing. 



18 REM WH* SCREDIT «*« 

20 DATA 0,1,2,3,4,5,6,7,8,9,0,0,8,0,0, 

0,0,10,11,12,13,14,15 

30 DIM DflTSC51J,HEK(22J :FOR H=S TO 22: 

READ H:HEKtK)=H:HEKT K : LIHE=990 : RESTOR 

E 1060:TRAP 110:? "CHECKING DATO" 

40 LIME=LINE + 10:? "LIHE :"; LIME : READ DA 

T5:IF LEH{DATS)<>?0 THEM 160 

50 DflTLIH=PEEK(183)*PEEK(184)*256:IF D 

ATLINOLIHE THEM ? "LIME ";LIME;" MIS5 

ING!i":EMD 

60 FOR X=l TO 89 STEP 2 : D1 = ASC (DATS CK, 

K3 J-48:D2=ASCtDAT$CK+l,K+l)}-48:BYTE=H 

E)<(D1}»16+HEKCD2) 

70 IF PASS=2 THEM PUT ttl,BYTE:«EKT X:R 

EAD CHKSUM:GOTO 40 

80 TOTAL=TOTAL+BVTE:IF T0TAL>999 THEM 

T0TAL=T0TAL-1000 

90 MEHT X:READ CHKSUM:IF TOTAL-CHKSUM 

THEN 40 

100 GOTO 160 

110 IF PEEKtl95)<>6 THEN 160 

120 IF PA5S=2 THEN PUT «1,224:PUT ttl , 2 

:PUT «1,225:PUT ttl,2:PUT ttl,0:PUT ttl, 5 

4:CL0SE ttl:EMD 

130 ? "INSERT DISK HUH DOS, PRESS RET 

URM";:DIM IMSC1J:INPUT INS:0PEN ttl, 8,0 

"D 5 ^liTORUN ■ SYS" 
i40'pUT ttl,255:PUT tll,255:PUT ttl,0:PUT 

ttl,64:PUT ttl,80:PUT ttl, 73 
150 ? :? "WRITING FILE" : PASS=2 : LINE=99 
0:HEST0RE leOOlTRAP 110:G0T0 48 
160 ? "BAD DATA: LINE ";LIME:END 
1008 DATA 202343292F4O2O794O2O1C4320A3 
4O2ODC4O207D41A588C9359OEEDOO62O28434C 
F144202843203C432940434C,6Z7 
1810 DATA 0040A228A9039D4283A94D9D4403 
A9439D4503A9089D4A83A9089D4B032056E4A2 
10A9e39D42O3A94A9&4483A9,599 
1020 DATA 439D4583A9eC9D4A83A9009D4B03 
2856E4A9008DC502A99A80C6028DC88260A230 
A9O39D4203A95O9D44O3A943,993 
1830 DATA 9D45e3A9049D4AO3A9OO9D4BO320 
56E478A510297F85198DOEO2585OA9988DA3O2 
A9403DA482A20FBCB444BDB3,542 
1840 DATA 4486822OCi4OA682CACA10EF6OA2 
OO9D44O3989D45O3A9O99D42O3A9289D48038A 
9D49832856E46O20F542A987,162 
1850 DATA A230A001206341A99B8DCA44A9C9 
A84420C14G2Oi443ADC944C920F8DEC93198e5 
C937B0815OA9FD8DC944A9C9,737 



1860 DATA A0442OC14O2OF542A9288DC9444C 

E840A240A9O39D4203A9069D4AO3A9539D44O3 

A9439D45032056E4A905A240,304 

1070 DATA A0282O634198i0878481A24O4CEC 

42A22OA9C49D44O3A9449D45O3A9099D42O3A9 

282071414C37419D42G3A9C9,608 

1080 DATA 9D4403A9449D45e3989D48O3A9O8 

9D49032056E46OADC9448588C93498O9DeO62O 

1E414C024360C932D00AA9FD,112 

1098 DATA Ae4320C1404CA441A916A04420Cl 

48281443A9898555282243A985A2ieAOOF2063 

41281C43981O07C088FOO34C,961 

1180 DATA 5442ADC944C944F085A8A54C5442 

A58OC933DO33A24O20EC42A0O4287542981883 

4C5442A9O7A24O9D4203A9O0,555 

1110 DATA 9D44O3A9549D45O3A9OO9D4803A9 

O29D49O32OAE42A4S14C3442A2402eEC42A580 

C931DOG4A084D082A8O82O75,835 

1120 DATA 429819034C5442fi58GC931D884A9 

O7DOO2A9eB20954284819818834C5442A588C9 

32D0eAA948A04420C1404C02,114 

1130 DATA 43A92FA04420C1404CO243A2G2A9 

2O9D7544CA1OFA2OB742A99BAG0C996A442O14 

43A96AAO442OC14G4C0243A2, 556 

1140 DATA 40A9939D4203A9C99D4403A9449D 

45G3989D4Ae3A90O9D4Be32056E484816eA248 

904203 A90e9D4403A?6e9D45, 915 

1150 DATA e3A9809D4883A9149D49O32e56E4 

84812OEC4268848198A8O9A2O0C9649OO6E964 

E84CBE422OE242A28OC98A90,711 

1160 DATA 06E9GAE84CCD4228E24218693099 

6A44C86e488A693G99eA44C86860A98C9D4203 

2056E460A9188555A9GO8556,401 

1170 DATA A90C855460201443A951AG4420C1 

48A986CDlFDeD8FB68A99iAO442OC14O60A2Ol 

8EF0e268A2888EF0G26GA218,345 

1188 DATA 20EC42A22O2GEC42A23O2OEC42A2 

4O4CEC426COA885OA97AA04428C1494C024345 

3A9BS33A9B4B3A9B443A2A2E,682 

1190 DATA 2AG07D1D1D7F1E1E1E1E53435245 

4449542828432920313938342e524F4E28484F 

4447459B1D1D7F312D204C4F,309 

1208 DATA 41442853435245454E9B7F322D20 

534156452053435245454E9B7F332D204C4F41 

4420434841522O5345549B7F,68O 

1210 DATA 342D2G44313A204449524543544F 

52599B7F352D204558495420544F2045444954 

4F529B7F362D204558495420,876 

1220 DATA 544F20444F539B1D7F5748494348 

2O4F5054494F4E203F2O202O2O2028289B1D7F 

4E414D45284F462046494C45,988 

1238 DATA 28544F20D3C1D6C5283F9B1D7F4E 

414D45204F462e46494C4528544F28CCCFClC4 

203F9B1D7F4C4F41442G434F,45 

1240 DATA 4D584C455445449B1D7F53415645 

2e434F4D5O4C455445449B7F5O5245535320D3 

D4C1D2D428544F20434F4E54,167 

1250 DATA 494E55459B7FC5D2D2CFD23A2020 

2828282020209B7FC5D2D2CFD23A2G4E4F2G44 

4F53204F4E284449534B9B20,634 

1260 DATA 2020202820282020202020202020 

20202020202020282020202020202020202828 

9BE543D543C243B0439E438E,292 

1270 DATA 437C4359432O20202O200OOOG0e0 

00000000038000800080800000880880880008 

880080080000008090000000,866 

1280 DATA 88OOOOO0OOAOOFB9AE4899F8ee88 

10F7AOO4B9A94899C4O2881SF7A9548DF4O2A9 

0eA0FF99003488D0FA85F08D,141 

1290 DATA 04D48583A95A8DC002A9308D00D8 

85FDA9G08D01DO8DO2DG8De3DOA9O18D6FO2A9 

008D08D8A9FF287F47A93G8D, 351 

1380 DATA O7D4A9O38D1DD0A0A1A98O99FF73 

88D0FA78A9808D2F02A82FB979489900068810 

F7A9OO8D3O02A9O68D3iO2A9,245 

1310 DATA 3E8D2FQ2A9478DG882A9488D8102 

58AO96A245A9O72O5CE4A9Ce8D8ED420794O4C 

B545A583DO18A6FEF0GCA514,78 

1320 DATA 2901DG0E20B6474C62E4AD8482F0 

032058474C62E4A514C514FeFCA5FED0F6AD84 

O2DO2BAD78O2C907DOO62087,381 

1330 DATA 464C4746C98BD0G620BD464C4746 

C90EDOO62OED464C4746C9ODDOO62eiE474C47 

46AD1FDOC9O3D0O62018484C,399 

1340 DATA 1S46C995D009Z06C482029484C10 

46C986DOOB20BE48A9048D1FDG4C4746ADFC82 

C9FFFO1DC91CD0834COC492O,7O2 
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1350 DATA CF48B0112OE848B00F2e5A462O60 

462e7E464C474e4CB545A?FF8DFC824Cig46A9 

FF8DFC02A204fl514C514F0FC, 735 

1360 DATA CAD0F74CB545A230A90O3D48039D 

4SQ3A3e7SD42832056E460A82A2A2A2A29Q3AA 

98295FlD284g85F160205748, 111 

1370 DATA A8OOA5F191FAA4F8C013FO15BO13 

EeF8EeF2D0e2E6F3A5FD1869e885FD8De0D060 

A90085F8A93e85FD8D08D0A5,837 

1380 DATA F238E91385F2B006A5F3ESe085F3 

60A4F8F015C6F8A5F2D082C6F3C6F2A5FD38E9 

0885FD8D0OD0e8A91385F818,813 

1390 DATA 65F285F2A5F369e085F3A9C885FD 

8D00DQ68A4F9F013C6F3C6F3C6F3A988207F47 

84FCA9FF207F4760A90985F9,714 

1460 DATA A5F318691285F3A908207F47A0BF 

84FCAgFF207F4768A4F9C005F01AB018E6F9E6 

F3E6F3A900287F47A5FC1869,979 

1410 DATA 1085FCA9FF207F4760A90085F9A5 

F338E91285F3A900287F47A02F84FCA9FF207F 

4760AD7802C907D00E28SA47, 478 

1428 DATA 601AA?0885F0A?8085FEe8C90BD0 

8D209E47B008A9e085FeA91485FEeOA4FCA210 

91Fe88CAD0FAe0A4F4CeEl?e,348 

1430 DATA D4A5F5De08E6F4D002E6F5186038 

60A4F4C80690e4C6F418e0A6F5F008CeF4ie02 

C6F5186038e08A182BC6FeF0,34 

1440 DATA 86A5F08D04D46eA21CFE830eD083 

FE84e6CACACA10F3A98085FEE6F2D8e2E6F3A9 

0885F08De4D46eE6F8A4Fece,471 

1450 DATA 88B886A5F08De4D4e0A21C6D0386 

De03DE0406DE030eCACACA10F8A?0e85FEA5F2 

D882C6F3CeF2A98e85F88D04,lS4 

1460 DATA D460A9eiCD6F02D886A9848D6Fe2 

608D6F8268Ae00BlFA484A4A4A4A2e38486829 

0F186918C91A900318698799, 150 

1470 DATA 3C74C86e48A9E08D8AD48D89D4A5 

FF8DC6O26848A5F285FAA5F385FBA5F0F8O8A5 

FAD082C6FBC6FA60285748A8,945 



1488 DATA OOB1FA293F8D2D74607070785780 

6e570062570064570ee657eoe857e06A57006C 

57006E57e070D70072428074,440 

1490 DATA 42287442507442787441Q00628CA 

94460e8SFF0260050000340808e0002F3e0094 

A954CDF402F0048DF4e260A9,i8 

1500 DATA E08DF4fl26048293FA005D9E248F0 

068810F8681860683S608C1C2C343736C98FD0 

05201E473860C98ED0e528ED, 619 

1510 DATA 4638e0C986D08520BD46386eC987 

De842087463868A9FF8583A23020EC42A9008D 

1DD08D00D0A9228D2F828D00, 431 

1520 DATA D44C004040002060000000eeOOeO 

08008000800068080000000000000000000000 

000088880088688880006000,975 



CHECKSUM DATA 
(See page 23) 



10 DATA 886,957,808,431,727,198,599,55 

3,272,701,611,124,947,676,36,8526 

168 DATA 165,400,643,736,739,594,825,6 

10,609,552,355,530,502,378,633,8271 

1148 DATA 619,561,666,493,768,573,382, 

415,551,888,586,695,839,484,647,9159 

1290 DATA 812,789,983,768,887,783,939, 

678,46,956,72,145,914,964,983,10719 

1448 DATA 982,998,696,217,152,418,681, 

688,498,5306 



(Assembly language starts on page g6) 



Some program listings reproduced in A.N. A.L.O.G. may contain "strange" characters not shown on 
the ATARI keyboard. These are special characters which use the CTRL, ESC and "ATARI LOGO" 
(INVERSE) keys. Shown below is a list of these characters and the keystrokes used to get them. D 
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I 

4 

/ 
\ 

i 



r 



CTRL 


f 












CTRi 


A 







CTRL Z 






CTRL 


B 







ESC E5C 






CTRL 


C 







ESC CTRL 


UP-ARROH 


CTRL 


D 







ESC CTRL 


DOHK 


-ARROU 


CTRL 


E 






ESC CTRL 


LEFT 


-ARROH 


CTRL 


F 







ESC CTRL 


RICHT-ARROU 


CTRL 


G 







CTRL . 






CTRL 


N 







CTRL ; 






CTRL 


I 







ESC SHIFT CLEAR 


CTRL 


J 







ESC BACK 


5 




CTRL 


K 







ESC TAB 






CTRL 


L 







INVERSE 


CTRL 


9 


CTRL 


M 







INVERSE 


CTRL 


A 


CTRL 


N 







INVERSE 


CTRL 


B 


CTRL 










INVERSE 


CTRL 


C 


CTRL 


P 







INVERSE 


CTRL 


D 


CTRL 










INVERSE 


CTRL 


E 


CTRL 


R 







INVERSE 


CTRL 


F 


CTRL 


5 







INVERSE 


CTRL 


G 


CTRL 


T 







INVERSE 


CTRL 


H 


CTRL 


U 







INVERSE 


CTRL 


I 


CTRL 


V 







INVERSE 


CTRL 


J 


CTRL 


U 







INVERSE 


CTRL 


K 


CTRL 


X 







INVERSE 


CTRL 


L 


CTRL 


V 













■ INVERSE CTRL 

■ — INVERSE CTRL 

1 INVERSE CTRL 

E INVERSE CTRL 

r INVERSE CTRL Q 

I INVERSE CTRL R 

:: INVERSE CTRL 

□ INVERSE CTRL 

■ INVERSE CTRL U 

I INVERSE CTRL V 

n INVERSE CTRL H 

'Ji — INVERSE CTRL 

I INVERSE CTRL 

U INVERSE CTRL 

□ ESC DELETE 

D ESC INSERT 

□ ESC CTRL TAB CCLRJ 

Q ESC SHIFT TAB fSETJ 

■ INVERSE SPACE 

■ INVERSE _ 

□ INVERSE CTRL . 

C INVERSE CTRL ; 

II INVERSE I 

a ESC CTRL 2 

a ESC CTRL BACK S 

U ESC CTRL INSERT 



H 
N 

P 



5 

T 



K 
V 

Z 



Get Serious, Go Ape With An 



APE 



Parallel Printer Interface For Atari^Computers 




Model XLP 

Atari 400/800 
Atari 600 XL/ 800 XL 



Model 12XLP 

Atari 1200XL 



$8995 



At fhe dealer 
you trust most. 



pe-Face makes it easy to expand your Atari Computer — 
so you can do more than play games! Choose any 

Centronics standard parallel printer to enhance your system, 

like Epson, Gemini, or C. Itoh. 
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through the serial peripheral port makes installation a snap. 
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I aCREDIT <C) 1984 RON HODQE 

I 

I ASSEHBLED ON HAC63 

I 

.OPT NO LIST 

.OPT OBJ 



1 

t PROGRAM EQUATES 


DLI8T 




•Baaa 




PLBAS 




*3e00 


PM BASE 


PB0 




• 3400 


PLYR a BASE 


HXTXT 




»743C 


CHR UNDER CRBR 


CHDIS 




»742D 




SCREEN 




• 6000 


tST SCRN BVTE 


SCRSIZ 




3120 


3CRN SIZE 


CHRSET 




• 3400 


CHR SET LOC 


CHRSIZ 




312 


CHR SET SIZE 


1 ZERO PA8E 


EQUATES 




OPT 




• 80 


MENU OPTION 


STAT 




• 81 


I/O ERR STATUS 


XSAV 




• 82 


TEMP X VALUE 


nODFLQ 




• 83 


MENU/EDIT STATUS 


SCBIT 




• FB 


SCROL BIT CTR 


CHR 




• Fl 


DISP CHAR 


SCRN 




• F2 


PTR TO SCRN 


SCRNH 




• F3 




SCRLO 




• F4 


aCRL BYTE CTR 


SCRHI 




»F = 




PMLO 




• F6 


PTR TO PMB 


PMHI 




• F7 




COL 




• F8 


CURSOR COLUMN 


ROM 




• F9 


ROW 


TEMPB 




• FA 


TEMP POINTER 


TEMPI 




»FB 




VOFF 




• FC 


VRT OFFSET P0 


HORPe 




»FD 


HPOSPa SHADOW 


SCFLB 




»FE 


SCROL IF <>0 






POS 


- RITE SCROL 






NEQ 


- LEFT SCROL 


TXTCLR 


" 


»FF 


TXT WINDOW COLR 


1 CONSTANTS 


RITPM 




200 


RITEMOST P0 POS 


LFTPM 




48 


LEFT 


BOTPM 




191 


BOT 


TOPPM 




47 


TOP 


ROWM 




9 


BOTTOM ROW 


COLM 




19 


RITE COLUMN 


WIDTH 




233 


CURSOR WIDTH 


HITE 




16 


HITE 


START 




6 


CONSOL VALUES 


SELECT 




S 




OPTION 




3 




HOR 




8 


HOR DISTANCE 


RETURN 




• 0C 


KEYS 


ESC 




»1C 




TAB 




• 2C 




DEL 




♦ 34 




INSERT 




• 37 




CLR 




• 36 




COLON 




• 3A 




SPACE 




• 20 




EOF 




•as 


END OF FILE 


eoL 




• 9B 


END OF LINE 


BUFLEN 




40 




EDEV 




• 10 


DEVICE NUM'S 


9DEV 




• 20 




KDEV 




• 30 




DDEV 
1 




• 40 




; SYSTEM 


EQUATES 





CH 




• 02FC 


KEY PRESSED 


POKMSK 




• 10 




IRQEN 




• D20E 




VD3LST 




• 0200 




3IZEP0 




• D008 




C0LPF2 




• 02C6 




HSCRQL 




• D404 




PMBASE 




• D407 




COLOR0 




• e2C4 


COL RES 


COLDRl 




• 02CS 




CQLDR4 




• 02C8 




3DL3TL 




• 0230 


PTR TO DLI3T 


SDLSTH 




• 0231 




CHBAS 




• 02F4 


CHAR SET 


3DMCTL 




• 022F 


SCRN CONTROL 


DMBCTL 




• 0400 




QRACTL 




• D0tD 


SRAPH 


HPOaP0 




• D000 




OPRIDR 




• 026F 




STICK0 




• 0278 


J/STICK0 



PCOLR0 




• 02C0 




CONSOL 




• D01F 




XITVBV 




•E462 




TRia0 




• 0284 




CHBA3E 




• D409 


CHAR 8ET ADR 


WSYNC 




• D40A 




NMIEN 




• D40E 




ATACHR 




• 02FB 




CRSINH 




• 02F0 


CURS ON/OFF 


COLORS 




• 33 


CURSOR COLUMN 


ROWCRS 




• 54 


ROW 


TABMAP 




• 02AI 


TAB SET POB'S 


RAMTOP 




106 





I 

I CIO ADDRESSES 

f 

I 

ICCOn - *0342 COMMAND ADDR 
ICBAL - •0344 BUFF ADDR LO 
ICBAH - *034S BUFF ADDR HI 
ICAXl - •034A AUX BYTE 1 
ICAX2 - ^0348 AUX BYTE 2 
CIOV - ^£436 CENTRAL I/O 
ICBLL " •0348 BUF LENGTH LO 
ICBLH - »0349 BUF LENSTH HI 
I 

I 

I CIOV COMMANDS 

) 

I 

OPEN - 3 

CLOSE - 12 

aETCHR - 7 BET CHARACTER 

QETREC - 3 3ET RECORD 

PUTCHR - 11 PUT CHARACTER 

PUTREC - 9 PUT RECORD 

OPDIR - 6 OPEN DIRECTORY 

WRITE - a AUX COMMAND 

READ ' 4 AUX COMMAND 

I 

I 

•- (4000 
, 

I START OF SCREEN MENU ROUTINE 

I 

MENU 

I 

JSR CLSALL CLOSE DEVICES 

JSR MODE0 OPEN S: >i E: 

JSR OPNKBD OPEN KEYBOARD 

At 

JSR CRSROFF 

JSR 3CRPRT PRINT MENU 

JSR BETOPT SET OPTION 

JSR DOOPT DO THE OPTION 

LDA OPT 

CMP ••3 EXIT OPTION 7 

BCC Al NOT IF <3 

BNE A2 IT'S 6 

JSR CLSALL CLOSE DEVICES 

JMP INIT GO TD EDITOR 

A2 

JSR CLSALL 
JSR DOS 

I RETURN ONLY IF NO DOS ON DISK 

JSR NODOS ANNOUNCE NO DOS 

JMP MENU THEN START OVER 









i OPEN 


s: , e: AND k: devices 


MODE0 






i OPEN 


SCRN TO MODE 
LDX VSDEV 
LDA tOPEN 
STA ICCOM.X 
LDA t <SC6lQN 
STA ICBAL.X 
LDA • >SCOLON 
STA ICBAH.X 






LDA #8 AUX 


COMMAND 




3TA ICAXl. X SET 


TO -WRITE 




LDA •« BR. 


MODE 




STA ICAX2,X 






JSR CIOV 




OPENED 






» OPEN 


THE E: DEVICE 
LDX •EDEV 
LDA •OPEN 
STA ICCOM.X 
LDA • <Ec6lON 
STA ICBAL.X 
LDA • >ECOLON 
STA ICBAH.X 






LDA •12 AUX 


COMMAND 




STA ICAXl, X READ i WRITE 




LDA ^0 






STA ICAX2,X 






JSR CIOV 





CHANGE COLORS 





STA 


COLORl 




LDA 


• 134 




STA 


C0LPF2 




STA 


C0L0R4 




RT3 




OPNKBD 








LDX 


•KDEV OPEN KEYBOARD 




LDA 


• OPEN 




STA 


ICCOM.X 




LDA 


• <KC0LON 




STA 


ICBAL, X 
• >KCQLON 




LDA 




STA 


ICBAH. X 




LDA 


• 4 




STA 


ICAXl . X 




LDA 


• 




STA 


ICAX2.X 




JSR 


CIOV 




SEI 


TURN OFF BRK KEY 




LDA 


POKMSK 




AND 


••7F STRIP HI BIT 




STA 


POKMSK 




STA 


IRQEN 




CLI 




I 


RTS 




1 PRINT 


THE MENU SCREEN 


3CRPRT 








LDA 


•0 CLR a TAB POS" 3 




STA 


TABMAP 




LDA 


•»40 TAB AT 10 




STA 


TABMAP* 1 


PRTMSB 

1 

1 THIS 






ROUTINE BETS THE MSB 


1 ADDR 


BEFORE JUMPING TO THE 


I PRINT 


ROUTINE. 


' 


LDX 


• IS 


Bl 








LDY 


MSB.X HI ADDR 




LDA 


MSa-l,X BET LO ADDR 




STX 


XSAV SAVE X 




JSR 


PRINT 




LDX 


X3AV 




DEX 






DEX 






BPL 


Bl 




RTS 




PRINT 






1 ENTER 

1 


WITH 


A-LSB OF MSB 
Y-MSB OF MSB 




LDX 


• 




STA 


ICBAL.X 




TYA 






STA 


ICBAH. X 
•PUTREC 




LDA 




STA 


ICCOM, X 




LDA 


• 40 JUST TD BE SAFE 




STA 


ICBLL, X 




TXA 






STA 


ICBLH, X 




JSR 


CIOV 




RTS 




I GET THE OPTION FM K: DEVICE 


GETOPT 








JSR 


P0S2412 POSITION CR8R 


QETKEY 








LDA 


•QETCHR BET THE KEY 




LDX 


• KDEV 




LDY 


• 1 




JSR 


DOCIO 


PRTl 








LDA 


•«9B FORCE EOL AS 2ND 




STA 


BUFF*1 CHAR IN BUFFER 




LDA 


• <BUFF SO ONLY 1 CHR 




LDY 


• >BUFF IS PRINTED. 




J3R 


PRINT PRINT SELECTION 


i 


JSR 


PRTBLK SKIP A LINE 


LDA 


BUFF IS KEY OK 7 




CMP 


••20 IS IT SPACE 7 




BEQ 


BETQPT 




CMP 


»• 1 KEY < 1 7 




BCC 


PRTQUE YES, ASK KEY ABAIN 




CMP 


• •6-M KEY >6 7 




BC8 


PRTQUE 




RTa 




PRTQUE 






I PRINT 


OUESTION AGAIN AFTER 


1 WRONG 


KEY 13 PRESSED 




LDA 


••FD BUZZER CHAR 




STA 


BUFF 




LDA 


• <BUFF 




LDY 


• >BUFF 




JSR 


PRINT 




JSR 


P032412 PLACE CR3R 



> 

o 

m 

CD 



IIQ 

c 

n 



9 
ore 



> 

z 
> 

o 
o 

o 
o 

c 

H 

z 

CD 



Cfi 
W 

c 
m 

O 



LDA ••2« 
STfi BUFF 
JMP PRTl 



CLR AND CONTINUE 



SAVE STATUS 



I 

I PRINT THE DIRECTORY ON SCRN 

I 

GETDIR 

LDX •DDEV OPEN DIRECTORY 

LDA •OPEN 

STA ICCOM.X 

LDA •OPDIR 

STA ICAXl.X 

LDA * <DIRNAM 

STA ICBAL.X 

LDA • >DIRNAM 

STA ICBAH.X 

JSR CIOV 
BETl 

LDA •SETREC BET DIRECTORY 

LDX tDDEV 

LDY #40 

JSR DOCIO 

TYA 

BPL PRTDIR 

STY STAT 

LDX •DDEV 

JMP DEVOFF 
PRTDIR 

I PRINT DIRECTORY ONE FILE 
( AT A TIME 

LDX •SDEV 

LDA • <BUFF-3 FORCE 3 SPACES 

STA ICBAL.X IN FRONT 

LDA • >BUFF-3 

STA ICBAH.X 

LDfl •PUTREC 

STA ICCOM.X 

LDA •Ae 

JSR D0CI02 

JMP 3ET1 
DOCIO 

I THIS ROUTINE 19 USED TO SET 
I THE DISK OIR AND TO PRINT IT 
) ENTER HITH X-DEVICE « 
I A-COMMAND 

I Y-BUFF LENBTH L3B 

STA ICCOM.X 

LDA • <BUFF 

STA ICBAL.X LSB OF ADDR 

LDA • >BUFF HI BYTE 

STA ICBAH.X 

TYA 
DOC 1 02 



BEQ El 

JMP ERROR 

LDA BUFF 

CMP ••D 

BEa E2 

LDY •163 

JMP ERROR 



LDA DPT IS IT CHAR OR 

CMP ••S SCRN FILE ? 

BNE 3CRFIL SCRN FILE IF <>3 



YEP, 80 IT'S OK 
PRINT ERROR MSB 



IS D 1/ST CHAR 7 
FILENAME ERROR 



BET CHAR SET 



LDX •DDEV 

JSR DEVOFF 

LDY •READ 

JSR OPN 

TYA 

BPL SET3ET 

JMP ERROR 

LDA •BETCHR LOAD CHAR SET 

LDX VDOEV 

STA ICCOM.X 

LDA • <CHftSET 

STA ICBAL.X 

LDA • >CHR3ET 

STA ICBAH.X 

LDA • <CHRSIZ 

STA ICBLL.X 

LDA • >CHR8IZ 

STA ICBLH.X 

JSR DOSCRNZ 

LDY STAT 

JMP ERRT3T TEST FOR ERROR 



LOAD OR SAVE SCREEN FILE 





STA ICBLL.X 






LDA »e 






STA ICBLH.X 






JSR CIOV 






RTS 




I ROUTE 


THE OPTIONS 




DOOPT 








LDA BUFF 


BET 1ST CHAR 




STA OPT 


3AVE OPTION 




CMP ••* 


IS IT LOAD/SAVE? 




BCC ASKNAM 


YES, IF <4 
ELsfe S IF NOT 4 




BNE CI 




JSR BETDIR 


BET DIRECTORY 


CI 


JMP PRSKEY 




RTS 


RETURN N/OPT-3 


A3KNAM 






1 RTS FC 


HERE RETURNS TO MAIN 


1 ROUTINE 
1 





LDX 
JSR 
LOA 
CMP 
BNE 
LDY 
BNE 

LDY 

JSR 

TYA 
BPL 
JMP 

LDA 
CMP 
BNE 
LDA 
BNE 



• DDEV 
DEVOFF 
OPT 

• ■ 1 
FI 
•READ 



TURN OFF DISK 

GET OPTION 

LOAD SCRN 7 

NO 

YES 

ALWAYS 



•WRITE 

OPN 

3CRID 
ERROR 

OPT 

• • 1 

SI 

•QETCHR 

B2 



OPEN DISK DRIVE 



LDA •PUTCHR 



JSR 
STY 



DOSCRN 
STAT 



SAVE ERR STATUS 



TEST FOR DISK I/O ERROR 
AND CONFIRM QOOD LOAD/SAVE 



BETNAM 
I GET 



CMP ••2 SAVE OPTION ? 

BNE Dl NO 

LDA • <SFNAM ASK FOR NAME 

LDY • >SFNAM OF FILE TO SAVE 

JSR PRINT 

JMP BETNAM 

LDA • <LFNAM 

LDY • >LFNAM 

JSR PRINT 



TEST FOR ERROR 



THE FILE NAME 
JSR PRTBLK 
LDA •9 
STA COLCRS 
JSR CRSRON 
LDA •BETREC 



H3 



TYA 

BPL H2 

JMP ERROR 

LDA OPT 

CMP ••2 SAVE OR LOAD 7 

BNE H3 LOAD IF •<> 2 

LDA » <3V0K VERIFY SAVE 13 OK 

LDY • >SVOK 

J9R PRINT 

JMP PRSKEY 



POSITION CRSR 
TURN CRSR ON 



VERIFY LOAD IS OK 
SET NEXT OPTION 



LDX tEDEV 

LDY SIS 

JSR DOCIO 

J3R CRSROFF TURN CRSR OFF 

TYA 

BPL El 

CPY •EOF 



BET 13 CHAR ONLY 



EOF ERROR 7 



LDA • <LDOK 

LDY • >LDOK 

JSR PRINT 

JMP PRSKEY 
ERROR 

I THIS ROUTINE PRINTS THE 
I ERROR C00E3 ON SCREEN. 

LDX »2 CLR ERRR BUFFER 

LDA •SPACE OF PREV ERRORS 
II 

STA ERRRfH.X 

DEX 

BPL II 



J3R BIN2A3C CONVERT ERROR 

LDA »»9B 

LDY •12 

3TA ERRR.Y FORCE EOL 

JSR PRTBLK 

LDA tt <ERRR 

LDY • >ERRR PRINT ERROR 

JSR PRINT 

JMP PRSKEY GET NEXT OPTION 
OPN 

I THIS ROUTINE OPENS THE DISK 
I DRIVE FOR LOAD/'SAVE OF 3CRN3 
I OR CHAR SETS. 

I ENTER WITH Y - AUX (R OR W) 

LDX •DDEV 

LDA •OPEN 

STA ICCOM,X 

LDA • <BUFF FILE NAME 

STA ICBAL.X 

LDA • >BUFF 

STA ICBAH.X 

TYA Y " READ OR 

STA ICAX1,X MRITE AUX COMM. 

LDA »e 

STA ICAX2,X 

JSR CIOV 

STY STAT 

RTS 
DOSCRN 

I THIS ROUTINE LOADS OR SAVES 
I THE SCRN. 

) ENTER WITH ACC " PUTCHR OR 
I » BETCHR 

LDX •DDEV 

STA ICCOM,X 

LDA • <SCREEN BEB OF SCRN 

STA ICBAL,X 

LDA • >SCREEN 

STA ICBAH,X 

LDA • <SCR3IZ SIZE OF SCRN 

STA ICBLL,X 

LDA • >3CR8IZ 



CO 

CO 

d 
m 
to 
o 



D0SCRN2 



STA ICBLH.X 



JSR CIOV 

3TY STAT 

JSR DEVOFF 

RTS 
BIN2ASC 

I THIS ROUTINE CONVERTS THE Y 
I REGISTER ERROR INTO DECIMAL 
I ASCI AND PUT3 IT IN THE 
I I/O BUFFER. 
I ENTER WITH Y-ERROR 

STY STAT 

TYA 

LDY •? 

LDX *e 



SAVE ERROR 
ERRR BUFF INDEX 



Jl 



SAVERR 



CMP ttiee 

BCC SAV100 

SBC •100 
INX 

JMP Jl 

JSR SAVERR 
LDX •0 

CMP •!» 

BCC SAV10 

SBC »10 
INX 

JMP KI 

JSR SAVERR 

ADC ttSS 
STA ERRR.Y 
INY 
RTS 



LESS THAN 1B0 7 



COUNT THE 100" 3 
COUNT • OF 100-3 



> 

> 

I— 

o 
o 

o 
o 

■u 

c 

H 
Z 

o 



CONVERT • 



COUNT THE le'S 
SUB TIL <I0 



CONVERT IT 



CONVERT 1-S 
PUT IN BUFFER 



PHA 
TXA 

ADC **ze 

STA ERRR 

INY 

PLA 

RTS 
DEVOFF 

I TURN OFF DEVICE 
I ENTER WITH X-DEVICE « 

LDA •CLOSE CLOSE COMMAND 

STA ICCOM.X 

JSR CIOV 

RTS 



BET • TO CONVERT 
CONVERT IT 
PUT IN DUFFER 

RESTORE ACC 
DO TIL DONE 



P032412 



LDA ^24 

STA COLCRS 

LDA •0 

STA COLCRSf 

LDA •12 

STA R0WCR3 
RTS 



POB 24, 12 



"0 
> 

o 

m 

CD 



JSR PRTBLK 
LDA 



JSR PRINT 
LDA •6 



CMP CONSOL 
BNE LI 



<PREa TELL TO PRE33 
>PRE3 START KEY 



RETURN WHEN IT'S 
PRESSED 



» <BLNK PRINT BLANK LINE 
« >BLNK 



LDA 
LDY 
JSR PRINT 



LDX •! 

STX CRSINH 



TURN CR3R OFF 



TURN CRSR ON 



I CLOSE ALL DEVICES EXC « 

LDX #EDEV 

JSR DEVOFF 

LDX fSDEV 

JSR DEVDFF 

LDX •KDEV 

JSR DEVOFF 

LDX #DDEV 

JNP DEVOFF 

DOS 

JMP (tBA) 
RTS 

NQDOS 

I ANNOUNCE NO DOS ON DISK 

LDA • <NONE 

LDY • >NDNE 

JSR PRINT 

JflP PRSKEY 

> 



I DEVICE 


NAMES 






ECOLON 










.BYTE 


■■F 


" ,EOL 


SCOLON 










.BYTE 


"S 


" , EQL 


KCOLDN 










.BYTE 


"K- 


".EOL 


DIRNAN 








{ 


.BYTE 


»u- 


♦ . • " , B 


I PIESSASES 



OPTl 

DPT2 
0PT3 
QPT4 
0PT3 
OPTt 
QUES 

3FNAM 

LFNAM 

LOOK 

SVDK 

PRES 

ERRR 

NONE 

BLNK 

nsQ 

I ADDRE 
I PRINT 



.BYTE 
.BYTE 

.BYTE 
. BYTE 

.BYTE 

.BYTE 

. BYTE 

.BYTE 

. BYTE 

.BYTE 
. BYTE 

.BYTE 
.BYTE 



125,29,29, 127.30,30,315.30 
-SCREDIT (C) 1984 RON H0DQE",EOL 

29, 29 127 

"1- LOAD SCREEN", EOL 

127, "2- SAVE SCREEN", EOL 

127, "3- LOAD CHAR SET", EQL 

127, "4- Dl: DIRECTORY", EOL 

127, "3- EXIT TO EDITOR", EOL 

127,-6- EXIT TO DOS", EOL 

29, 127 

"WHICH OPTION 7 ".EOL 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
. BYTE 



. BYTE 
.BYTE 



.BYTE 
.BYTE 



SSES OF 
ING THE 



29, 127 

"NAME OF FILE TO Sfl(/£ ?-,EOL 

29, 127 

"NftME OF FILE TO LO/m ?",EOL 

29, 127 

-LOAD COMPLETED", EOL 

29, 127 

"SAVE COMPLETED" , EOL 

127 

-PRESS STflKJ TO CONTINUE" , EQL 

",EOL 



127 
•IKKOR: 



127 



"£R«0«: NO DOS ON DISK", EOL 



MESSAGES FOR 
MENU 



SPACES 
BUFF 



. WORD QUE9,0PT4, OPTS , 0PT4 , 0PT3 , QPT2 , OPT 1 , CR IT 
.BYTE 32,32,32,32,32 

0,e,e 
0,0,0 
0,0 



.BYTE 

.BYTE 

.BYTE a 

.BYTE 



.0. 0.0. 



START OF aCREEN EDITOR 



NIT 
AAt 



INIT ZERO PAGE 





LDA 


ZPAB.Y 
»F0, Y 




STA 




DEY 






BPL 


AAl 


COLOR 








LDY 


• 4 


BBt 







LDA HUES,Y 

STA COLOR0,Y 

DEY 

BPL BBl 

LDA • >CHRSET 

STA CHBAS 



CLRPM 










LDA 


• 






LDY 


• •FF 




CCl 










STA 


PB0, Y 






DEY 








BNE 


CCl 






STA 


3CBIT 


SET HSCROL RES 




STA 


HSCROL 






STA 


MODFLO 


- IN EDIT MODE 


COLPL 










LDA 


»»5A 






STA 


PCOLRe 


PINK CURSOR 


PMP03 










LDA 


•LFTPM 






STA 


HPO3P0 






STA 


HORP0 






LDA 


• 






STA 


HPOSP0-<-l 




STA 


HPoapa+2 




STA 


HP0SPB*3 


3ETPRI 










LDA 


• 1 


ALL PLAYRS.THEN 
THEN ALL PF'a 




STA 


GPRIOR 




LDA 


»0 






STA 


sizEpe 


SET P0 DEL WIDTH 




LDA 


«UIDrH 






JSR 


DRWPM 


DRAW CURSOR 


SETPMB 










LDA 


• >PLBAS 




STA 


PMBASE 




ENBL 










LDA 


• 3 






STA 


GRACTL 


ENABLE PM-« 


CLRWND 










LDY 


• 141 


CLR TEXT WINDOW 




LDA 


*0 




DDl 










STA 


«73FF,Y 






DEY 








BNE 


DDl 




SETDISP 









SEI TURN OFF INT 

LDA #0 TURN OFF SCRN 
STA SDMCTL 
LDY #47 





LDA 


SDLIST. 


Y 




STA 


DLI3T, Y 






DEY 








BPL 


EEl 






LDA 


• <DLIST 




STA 


SDLSTL 


CHNO DISP/SCRN 




LDA 


• >DLiaT 




STA 


SDLSTH 






LDA 


»62 


3IN0LE LINE DI3P 




STA 


SDMCTL 






LDA 


• <DLI 


POINT TO OUR 




STA 


VDSLST 


DLI3T INTERRUPT 




LDA 


» >DLI 






STA 


VDSL9T+ 


1 




CH 






VBL3ET 










LDY 


• <UBLRTN 




LDX 


» >VBLRTN 




LDA 


• 7 


DEFERRED VBL 




JSR 


• E43C 






LDA 


t»C0 


ENABLE DLI-3 


1 


STA 


NMIEN 


AND VERT BLANKS 


JSR 


OPNKBD 


OPEN KEYBOARD 




JMP 


MAIN 





VERTICAL BLANK ROUTINE 



VBL ROUTINE READS THE J/3 
AND SCROLLS THE SCREEN IF J/S 
IS MOVED. THE SCROLL FLAB 
(SCFLB) IS SET IF SCRQLLINS 
IS UNDERWAY, 30 THE MAIN 
ROUTINE SIMPLY LOOPS WHILE 
SCREEN 13 SCROLLING. 



LDA nODFLQ 

BNE FF2 

LDX SCFLB 

BED FFl 

LDA •14 

AND *l 

BNE FF2 

JSR 3CR0L 

JMP XITVBV 

LDA TRIBO 

BED FF2 

JSR CHKJS 



JMP XITVBV END OF VBL 



EXIT IF IN 

MENU MODE 

SCROLLING ? 

NO 

SLOW DOWN SCROL 

TO EVERY OTHER 

FRAME 



IS TRIG PRESSED? 

YES 

READ J/S,ADJ 3CFLQ 



MAIN ROUTINE 



MAIN 
081 



KK4 
KK9 



LDA (14 



JIFFY ELAPSED ? 



CMP »14 

BEO BSl NO 

LDA SCFLB SCROLLINB 7 

BNE MAIN YESlSQ LOOP BACK 



TRIGGER PUSHED 7 
NO. CHEK CONSOL 



PUSHED RITE? 



LDA TRIB0 

BNE CHEK 

LDA STICK0 

CMP <n 

BNE HHl 

JSR CR3RIT 

JMP WAIT 

CMP •! 1 

BNE HH2 

JSR CRSLFT 

JMP WAIT 

cnp •14 

BNE HH3 
JSR CRSUP 
JMP WAIT 

CMP •IS 

BNE CHEK 

JSR CRSDWN 

JMP WAIT 



LDA CONSOL 

CMP tOPTlON OPTION PRESSED ? 

BNE JJl 

JSR CHQPRI CHANOE PRIORITIES 

JMP CLIK 

CMP •SELECT SELECT PRESSED 7 

BNE JJ2 

SHOW CHAR 

SHOW HEX VALUE 



JSR SHWCHR 
JSR SHWHEX 
JMP CLIK 



CMP •START START PRESSED ? 

BNE CHEKEY 

JSR FUPCH FLIP CHAR SETS 



LDA ^4 

STA CONSOL 

JMP WAIT 

LDA CH 

CMP •»FF 
BEQ KK4 

CMP WESC 
BNE KK2 
JMP CHGMOD 

JSR CMPCHR 
BCS KK4 
JSR T3TARW 
BCS KK3 
JSR SETCH 
JSR CONVERT 
JSR PUTCHAR 
JMP WAIT 

JMP MAIN 



CLIK 
WAIT! 

BET KEY 

ANY PRESSED 7 
NO 

ESCAPE KEY ? 

NO 

YEP, GOTO MENU 

PRINTABLE CHAR ? 
NOT IF CARRY SET 
CRSR CHAR 7 
YES. IF CARRY SET 
ELSE BET CHAR 
CHQ ASCI TO DIBP 
AND PUT ON SCRN 





LDA 


• •FF 




STft 


CH 




JMP 


CLIK 


WAIT 








LDA 


•»FF CLR THE KEYBOARD 




STA 


CH 




LDX 


•t • OF JIFFIES 


ULl 








LOA 


»14 BET FRAME COUNT 


LLZ 








CMP 


»14 




BED 


LL2 




DEX 


WAIT TIL 4 FRAMES 




BNE 


LLl HAVE ELAPSED 


1 


JMP 


MAIN THEN LOOP TO MAIN 


1 PROCESS KEYBOftRD 


QETCH 






1 THIS 


ROUTINE ACCEPTS INPUT 


1 FROM 


THE KEYBOARD 




LDX 


«KDEV 




LDA 


»0 BUFFER LENQTH-B 




STA 


ICBLL.X BO CHAR RETURNS 




9TA 


ICBLH.X IN ACC 
•QETCHR 




LDA 




STA 


ICCOM.X 




J3R 


CIOV 




RTS 




CONVERT 






1 CONVERT ftTfiSCl TO INTERNAL 


1 CODE. 


ENTER W/ATA3C1 IN ACC 




TAY 






ROL 


A 




ROL 


A 




ROL 


A 




ROL 


A 




AND 


• 3 




TAX 






TYA 






AND 


• *9F 




DRA 


AT2INT.X 




STA 


CHR SAVE INT CODE 




RTS 




PUTCHAR 








JSR 


SETMP 




LDY 


t0 




LDA 


CHR 




STfl 


(TEMPB) ,Y 



MOVE CURSOR MITH/WBAP AROUND 



CR8RIT 








LDY 


COL 




CPY 


• COLM 




BEB 


MMl 




BCS 


MMl 




INC 


COL 




INC 


SCRN 




BNE 


MM 3 




INC 


SCRN-H 


MM3 








LDA 


HORP0 




CLC 






ADC 


»HOR 




STA 


HORFB 




STA 


HPDSPB 




RTS 




MMl 








LBA 


«e 




STA 


COL 




LDA 


•LFTPM 




STA 


HORPB 




STA 


HPDSPB 




LDA 


SCRN 




SEC 






SBC 


»19 




STA 


SCRN 




BCS 


Mn2 




LDA 


SCRNfl 




SBC 


• B 




STA 


aCRN-M 


HM2 


RTS 




CRSLFT 








LDY 


COL 




BEQ 


NNl 




DEC 


COL 




LDA 


SCRN 




BNE 


NN2 




DEC 


SCRN+l 


NN2 








DEC 


SCRN 




LDA 


HORP0 




SEC 






BBC 


»HOR 




STA 


HORPB 




STA 


HP03PB 




RTS 





ON RITE COLUMN 

13 IT- OR >7 

YEP 

NO, UPDATE COL 

AND ADDR UNDER 

CURSOR 



MOVE CURSOR 



WRAP CURSOR 

PUT IN LEFTM03T 

POSITION 

CHANQE SCRN PTR 



LDA 
STA 
CLC 
ADC 
STfl 
LDA 
ADC 
STA 
LDA 
STA 
STA 
RTS 

LDY 
BEQ 
DEC 
DEC 
DEC 
LDA 
JSR 
STY 
LDA 
JSR 
RTS 

LDA 
STA 
LDA 
CLC 
ADC 
STA 
LDA 
JSR 
LDY 
STY 
LDA 
JSR 
RTS 

LDY 
CPY 
BEQ 
BCS 
INC 
INC 
INC 
LDA 
JSR 
LDA 
CLC 
ADC 
STA 
LDA 
JSR 
RTS 

LDA 
STA 
LDA 
SEC 
SBC 
STA 
LDA 
JSR 
LDY 
STY 
LDA 
JSR 
RTS 



• 19 
COL 

SCRN 
SCRN 
SCRN-H 

•e 

SCRN+l 
•RITPM 
HORPB 
HPOSPB 



ROM 

PPl 

ROW 

SCRN<-1 

SCRN*l 

• B 

ERPM 

VOFF 

•WIDTH 

DRWPM 



• ROWM 
ROW 
SCRN-M 

• 18 
BCRN+l 

• B 

ERPM 
•BOTPM 
VOFF 
•WIDTH 
DRWPM 



ROW 

•Rown 

OQl 

QQl 

ROW 

SCRN-H 

SCRN+l 

• B 

ERPM 
VOFF 

• HITE 
VOFF 
•WIDTH 
DRWPM 



• 
ROW 
SCRN1-1 

• 18 
SCRN+l 

• 

ERPM 
•TQPPM 
VOFF 
•WIDTH 
DRWPM 



WRAP AROUND CURSOR 



DEY 
DEX 

BNE SSI 
RTS 



FINE SCROLL A BYTE AT A TIME 



03 

m 

to 
o 



ON TOP ROW 7 

YES 

NO 

MOV UP 2 PAGES 

ERASE CR8R 



WRAP AROUND CURSOR 
CHANBE SCRN PTR 



ERASE CRSR 



ON BOTTOM ROW 7 



YES 

NO 

MOV OWN 2 PASES 



WRAP AROUND CURSOR 
CHANSE SCRN PTR 



ERASE CRSR 



READ JOYSTICK FOR SCROLLINO 



ON LEFT COLUMN 7 

YES 

NO. JUST DEC IT 

AND SCRN POINTER 



MOVE CURSOR 



LDA STICKB 

CMP •? 

BNE RRt 

JSR CHKLF 

BCS RR2 

LDA OB 

STA SCBIT 

LDA ««SB 

STA SCFL8 

RTS 
RRl 

CMP •!! 

BNE RR2 

JSR CHKRT 

BCS RR2 

LDA »0 

STA SCBIT 

LDA ^20 

STfl 3CFLB 
RRZ 

RTS 
ERPM 
DRWPM 

I ENTER WITH ACC » TO ERASE 
) OR ACC - WIDTH TO DRAW CRSR 

LDY VOFF 

LDX ttHITE 



BET J/S 
PUSHED RITE 7 



CAN WE SCROL LFT 
NO 



PUSHED LEFT 7 

CAN WE SCROL RIT 7 



LDY 8CRL0 TEST FOR EAST MAX 

CPY •ZZS IS LOBYTE >223 7 

BCC TTl NO 

LDA SCRHI YESlIS HYBYTE"07 

BNE TT2 NO ) DOWT SCROL 



381 



STA (PMLO),Y 





INC 


SCRLO 






BNE 


TT3 






INC 


SCRHI 




TT3 


CLC 
RTS 






TT2 


SEC 
RTS 






CHKRT 










LDY 


SCRLO 






CPY 


• 6 






BCC 


UUl 


CHEK HI BYTE IF <6 




DEC 


SCRLO 






CLC 








RTS 






UUl 










LDX 


SCRHI 






BEQ 


UU2 


DONT'T SCROL IF 




DEC 


SCRLO 


ELSE DEC LD CTR 




BPL 


UU3 






DEC 


SCRHI 




UU3 


CLC 
RTS 






UU2 


SEC 
RTS 






SCROL 


TXA 








BPL 


RITSC 


RITE SCROL 


LFTSC 










DEC 


SCBIT 


DEC SCROL BIT 




BEQ 


LFTLP 






LDA 


SCBIT 






3TA 


HSCROL 






RTS 






LFTLP 










LDX 


• 28 


PT TO HIEST LO LM3 


VI 










INC 


DLI3T+3 


,X 




BNE 


V2 






INC 


DLI3T+4 


, X ELSE INC HIBYT 


V2 










DEX 




DLI INS 




DEX 




LMS HI 




DEX 




LMS LO 




BPL 


VI 






LDA 


• 






STfl 


SCFL8 






INC 


SCRN 


UPDATE 3CREEN 




BNE 


V3 






INC 


SCRN+l 




V3 










LDA 


• 8 






STA 


SCBIT 






STA 


HSCROL 






RT3 






RITSC 










INC 
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LDY 


SCBIT 






CPY 


• 8 






BCS 


RITLP 






LDA 


SCBIT 






STA 


HSCROL 






RTS 






RITLP 










LDX 


• 28 




WWl 










LDA 


DL13T+3 


X RESET LO 6Y 




BNE 


WWZ 






DEC 


DLIST+4 


X DEC HIBYTE 


MM2 










DEC 


DLIST+3 


X 




DEX 




DLI 




DEX 




LMS HI 




DEX 




LMS LO 




BPL 


WMl 






LDA 


• 






STA 


3CFL8 






LDA 


SCRN 






BNE 


WM3 






DEC 


SCRN+l 




WH3 










DEC 


SCRN 






LDA 


• 






STA 


SCBIT 
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Attention Programmers! 

ANALOG Computing is interested in programs, articles, and software review submissions deal- 
ing with tine Atari home computers. If you feel that you can write as well as you can program, then 
submit those articles and reviews that have been floating around in your head, awaiting publica- 
tion. This is your opportunity to share your knowledge with the growing family of Atari computer 
owners. ANALOG pays between $30.00-$360.00 for all articles. All submissions for publication 
must be typed, upper and lower case with double spacing. Program listings should be provided in 
printed form, and on cassette or disk. By submitting articles to ANALOG Computing, authors ac- 
knowledge that such materials, upon acceptance for publication, become the exclusive property 
of ANALOG. If not accepted for publication, the articles and/or programs will remain the property 
of the author. If submissions are to be returned, please supply a self-addressed, stamped envelope. 
All submissions of any kind must be accompanied by the author's full address and telephone 
number. Send programs to: Editor, ANALOG Computing, P.O. Box 23, Worcester, MA 01603. 



SpartaDOS and ARCHIVER IF 




From the authors of the CHIP! 

SpartaDOS is our all new command driven DOS fully compatible with all disk drives made for 

the Atari Home Computers™ Supports all Atari compatible densities - both single and double 

sided, 51/4 and 8 inch. 

UltraSpeed™ I/O allows read/write 2 to 4 times faster than standard! * Comprehensive utilities 

include: a sector copier, RS-232 handler, and DOS file translators. 

ARCHIVER II allows UltraSpeed backup of all diskettes and compacting of multiple programs 

on each disk. Includes an exceptional editor, a speed check, and is fully automatic. 

Available now for Atari 810 and 1050 drives! Coming soon for most other brands. 

Suggested Retail Price $129.95 (plus shipping and installation) 

See SpartaDOS and ARCHIVER II now at leading computer stores or order direct from: 

Spartan Software 

Div. oflCD, Inc. 

828 Green Meadow Ave. 

Rockford, IL 61107 

815-229-2999 (1:00-9:00 p.m. CST) 

•Speed depends on drive hardware. A chip replacement is required for most drives. 

SpartaDOS, ARCHIVER II, and UltraSpeed are trademarks of ICD, Inc. Atari is a registered trademark of Atari, Inc. 



HOW FAR WOUID 

YOU GO TO BEAT J.R. 

AT HIS OWN GAME? 

This year's hottest graphic adventure game puts you in the hot seat. If you're lii^e most of us, you've 
probably sat in front of a television and cooled your heels watching J.R"' walk all over family, 
friends, anyone who gets in his way 

Now it's your turn to even the score. The Dallas Quest"' lets you write yourself into the script. 
And out of the country The adventure takes you to hidden jungles deep in South America where 
primitive gods rule the land. Then back to Southfork"' where money reigns supreme. As many as 40 
scene changes over 2 continents test your logic, determination, grit and eventually greed. If you 
succeed in outwitting J. R.™ by securing a secret oil field for Sue Ellen, there's $2 ,000 ,000 and her 

personal congratulations waiting for you. 

From the opening to the closing scene you'll be captivated by the graphic realism. Each one 

was drawn and detailed by professional artists and developed in con- 
junction with the producers of "Dallas.""' The hi-resolution 
clarity and visual panning motions are only a few of the surprises 
waiting for you. 

In the Dallas Quest,™ there's one thing you're certain to 
learn. Whether pursued by the power hungry]. R. ™ or blood 
thirsty natives, it really is a jungle out there. 

Available now for Atari and Commodore 64 
Computers and coming soon for the Apple II Series and 
IBM PC and PC/JR. Suggested retail $34.95. 

Check with your local home computer software 
retailer for The Dallas Quest,™ and to learn of 
other great programs from Datasoft® send for 
a free consumer catalog. 




^ 



By 



l)aULM.(l* is a reRislered Irademark of Ijalasofl. Inc.® Lorimar. Dallas. JR., Southfork. EwiiR and The ftillas Quesl 
.ire irailrmarks of iBnmar ITodudloiB, Inc. Creatcii and wrilten hi Louella l« Caravi-ay and Phyllis Wapner. Game hy 
laniB daron. Licensed hy /.iv Inlcnialional. Inc. e WHi tarimar Pmluctioiis, Inc. 



Dabisoh: 



19808 Nordhoff Place, Chatsworth, CA 91311 Phone (818) 701-Sl6l 
CIRCLE #153 ON READER SERVICE CARD. 
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Alog 7 

ANALOG Publishing 1 FC, IBC 

Astra Systems 56 

Atto Soft 6 

CAP 58 

CDY Consulting 28 

Compucat 9 

Computability 38 

Computari 61 

Computer Creations 18 

Computer Games Plus 8 

Computer Palace 68 
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Cosmic Computers 48 

Datasoft 102,103 

Dorsett Educational Systems 13 

Eastern House 58 

Electronic Arts 4 

Firstware 8 

Future Tech 71 

Gardner Computing 32 
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Happy Computing 67 

Indus Systems 30 

Infocom 2,3 

Interactive Softvi^are 60 



141 Invinci 74 

134 Lateral Software 64 

111 Lotsa Bytes 9 

149 Lyco 83 

122 Micca Enterprises 37 

121 Microbits 36 

139 Microprose 69 

152 Mighty Byte/Spartan 101 

117 Miles Computing 25,26,27 

135 MSB 65 

113 Non-Standard Magic 17 

151 On-Line Computer Centers 61 

142 Pace 74 

147 PC Gallery 79 

126 Programmers Worl<shop 10 

106 PS Technologies 8 

1 55 Radical Systems 23 

133 RAM Computer 63 
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127 Tiny Tel< 49 
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This index is an additional service. Whik every effort is made to provide a compfele and accurate listing, the publisher cannot be responsible for inadvertent arms. 
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BACK ISSUES 



Catch up on 



whatyou^ve missed! 



f 




ISSUE 2 

Wasting Arrays 
Atari's CPU 
Download Terminal 
Converting BASIC 
Disk Files 




ISSUE 13 

Fine Scrolling Part 1 
Roundup 
Space Assault 
Observational Astronomy 
CIO Routines 





ISSUES 

GTIA Graphics 

Audio in Your Programs 

NOREM 

Graphic Violence 

Color Slot Machine 



ISSUE 9 

Build Your Own 400 

Keyboard 

Harvey Wallbanger 

Forth-Dos 

Letter Writer 





ISSUE 14 

Fine Scrolling Part 2 
Disassembler in BASIC 
Hexpad 
Lumberjack 
Retrofire! 



ISSUE 15 

Fine Scrolling Part 3 
Knights and Chalices 
Music Synthesizer 
Bricklayer's Nightmare 
Alternative Keyboard 
Handler 



All back issues $4.00 each 




ISSUE 11 

Strings in BASIC 

C:CHECK 

Disk Cataloging Utility 

Adventure in the 

Fifth Dimension 
Moving Missiles in BASIC 




^\ik\ 



' &.{" 



Sii 






ISSUE 16 

Fine Scrolling Part 4 
Create-A-Font 
Bar Chart Subroutine 
Shooting Stars 
3-D Object Rotation 



Send check or money order to: 

ANALOG Back Issues 

P.O. Box 615 

Holmes, PA 19043 



MasterCard and Visa orders call: 

1-800-345-8112 

in PA. 1-800-662-2444 




GRAPHICS 
EDITOR 



An Atari computer doubling as an art studio? You bet! 
Introducing S.A.G.E. — the Scott Adams Graphics 
Editor. 

S.A.G:E. lets you draw and edit highly compressed pic- 
tures that use over 50 different colors and shades. 
And S.A.G.E. was designed with simplicity in mind — 
nearly every command can be executed with a single 
key press or a simple push/pull of the joystick. 

Programming buffs will love the ease with which 
S.A.G.E. pictures can be drawn and then placed into 
their own Basic or machine-language programs. And 
the hi-res pictures you create will look the same 
whether your Atari has a GTIA chip or an older CTIA 
chip. 

The S.A.G.E. package includes both the 4BK tape and 
disk versions. You also receive a clear, comprehensive 
instruction manual that every "artist" in the family 
can easily use. 

S.A.G.E. - only S49.95! Draw your own conclusion — 
see your dealer today or call our toll-free number to 
place your order. Don't forget to ask for our free 
catalog! 
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SAGE-Scott Adams' Graphics Editor 



Visit your local dealer today, or call us for your copy! 

800-327-7172 



Requires an Atari computer with 48K. Both TAPE and 

DISK are in one package. 

054-01 66 $49.95 
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BOX 3435 • LONGWOOD, FL 32750 
[305] 862-691 7 



CIRCLE #150 ON READER SERVICE CARD. 



